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Preface 


Several months ago, it became apparent that we should give 
serious thought to creating a “best of” series from the pages of Inter¬ 
face Age. The idea seemed like it would not present a major problem 
at first, until we looked at the mountain of material we had available. 
The quantity wasn’t the only problem. The decision had to be made on 
what was best, so it could be included in the reprint series. 

After careful consideration, with close attention being paid to 
readers’ letters, the decision was made to create a “best of” series of 
Interface Age Classics. What this meant was that rather than to 
create a huge, difficult to use book of just about everything, we are 
printing the classic software pieces and the ones that many readers 
said they would like to see. 

The four reprinted articles that you find in this volume are those 
classics. Furthermore, they represent several different programming 
techniques. At the same time, they provide the reader with some of 
the most useful software ever created. 

Chapter four, “The Great Experiment,” offers the one piece of soft¬ 
ware that has been requested more than any other: the complete 
source listing of Uiterwyk’s 4K BASIC. It is an absolute classic. The 
source code was released into the public domain by Mr. Uiterwyk for 
this software volume, so students of software could achieve max¬ 
imum benefit from its use. For this, we at Interface Age are extremely 
grateful. 

My staff and I are quite convinced that everyone who makes use of 
this first volume will find it invaluable in making better use of their 
systems. 

Volume 2 of this series is made up of additional general purpose 
software from some of the Interface Age authors you have enjoyed 
over the past few years. Volumes 3 and 4 are dedicated specifically 
toward the small businessman. These two volumes contain more 
business software than any book currently available today. 

To round out this current “best of” series, Volume 5, Best of Inter¬ 
face Age—Things to Think About, contains those articles for the 
futuristic thinker and gadgeteer. This volume contains reprints from 
Roger Garret’s famous “Inventor's Sketchpad.” Also included are 
short and useful software tips, along with some handy hardware 
articles. 
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Interface Age has always been known as the leader in the publica¬ 
tion of important and useful software and ideas. We feel that the 
publication of this "best of” series will further enhance our leadership 
and provide you with hundreds of hours of enjoyment. 


carl warren 
editor-in-chief 
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Chapter 1 


Lawrence Livermore 
Laboratories 
8080 Basic Interpreter 


by Jerry Barber , Royce Eckard 
John Dickenson , David Mead 
and E. R. Fisher 


The year 1976 saw a number of accomplishments to the microcom¬ 
puter world, which was still very much in its infancy. The most impor¬ 
tant developments were with BASIC interpreters being made available 
to the micro user. 

One such BASIC, was the 8080 version developed at the University 
of Idaho by John Dickenson, Jerry Barber, and John Teeter; under a 
contract with the Lawrence Livermore Laboratory. The floating point 
package was developed by David Mead, modified by Hal Brand and 
Frank Olken. 

The entire project, including the course listing of the interpreter 
was documented in the December 76, January 77, February 77, and 
March 77 issues of Interface Age magazine. 

Because BASIC is still considered the most important language in 
the microcomputer industry, and also due to the continuing interest in 
the LLL version, we have re-published it here in its entirety. 

STORAGE REQUIREMENTS 

The BASIC interpreter consists of a 5K-byte-PROM resident inter¬ 
preter used for program generation and debug was configured to 
operate with the MCS-8080 microprocessor. 

The goal in developing the 8080 BASIC was to provide a high-level, 
easy-to-use conversational language for performing both control and 
computation functions in the MCS-8080 microprocessor. To minimize 
system memory size and cost, the interpreter was constrained to fit 



2 


Best of Interface Age/Volume 1 


into 5K bytes. It was necessary, therefore, to limit the commands to 
those considered the most useful in microprocessor applications. 


MATH OPERATOR EXECUTION TIMES 

Average execution times of the four basic math operators are as 
follows: 


Operation 

ADD 

SUBTRACT 

MULTIPLY 

DIVIDE 


Execution time 
on 8080 (m sec) 

2.4 m sec 

2.4 m sec 

5.4 m sec 
7.0 m sec 


BASIC INTERPRETER LANGUAGE GRAMMAR 

COMMANDS—Six BASIC interpreter commands are provided. 
These commands are: 


RUN Begins program execution 

SCR Clears program from memory 

LIST Lists ASCII program in memory 

PLST Punches paper-tape copy of program 

PTAPE Reads paper-tape copy of program using 
high-speed reader 

CNTRL S Interrupts program during execution 


The LIST and PLST commands can be followed by one or two line 
numbers to indicate that only a part of the program is to be listed. If 
one line number follows the command, the program is listed from that 
line number to the end of the program. If two line numbers (separated 
by a comma) follow the command, the listing begins at the first line 
number and ends at the second. 

When a command is completed, READY will be typed on the 
teletype. Once initialized by a command, a process will normally go to 
completion. However, if you wish to interrupt an executing program or 
a listing, simply strike CNTRL S and the process will terminate and a 
READY message will be typed. 

STATEMENTS—Each statement line begins with a line number, 
which must be an integer between 0 and 32767. Statements can be 
entered in any order, but they will be executed in numerical order. All 
blanks are ignored. The following types of statements are allowed: 
REM —Indicates a remark (comment). The system deletes blanks 
from all character strings that are not enclosed in quotes (”). 
Therefore, it is suggested that characters following the REM key 
word be enclosed in quotes. 

END—Indicates the end of a program. The program stops when it 
gets to the END statement. All programs must end with END. 
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STOP—Stops the program. This statement is used when the 
program needs to be stopped other than at the end of the pro¬ 
gram text. 

GOTO—Transfers program control to specified statement line 
number. This statement is used to loop or jump unconditionally 
within a program. Program execution continues from new 
statement. 

DIM—Declares an array. Only one-dimensional arrays with an 
integer constant number of elements are allowed. An array with 
N elements uses indexes 0 and N-1. All array locations are set to 
zero. No check is made on subscripts to ensure that they are 
within the declared array. An array variable must be a single 
letter. 

LET—Indicates an assignment statement (Addition, subtraction, 
multiplication, division, or special function may be used). The 
LET statement is used to assign a value to a variable. Non-array 
variables can be either a single letter or a letter followed by a 
digit. It is possible to have an array and a non-array variable with 
the same name. The general form of the LET statement is: 

line number LET identifier = expression, 
where identifier is either a subscripted array element or a non¬ 
array variable or function and expression is a unary or binary ex¬ 
pression. The expression will be one of the following ten types: 

variable 
-variable 
variable + variable 
variable - variable 
- variable + variable 
-variable-variable 
variable * variable 
-variable * variable 
variable / variable 
-variable I variable, 

where variable is an identifier, function, or number. The 
subscript of an array can also be an expression. 

IF—Condition statement which transfers to specified line number 
statement if the condition of the expression is met. It has the 
form: line number IF expression relation expression THEN 
transfer line number. The possible relations are: 


Equal = 

Greater than > 

Less than < 

Greater than or equal >= =< 

Less than or equal <= =< 

Not equal <> X 


If the relation between the two expressions is true then the pro¬ 
gram transfers to the line number, otherwise it continues se¬ 
quentially. 
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INPUT—This command allows numerical data to be input via the 
teletype. The general form is: 

Line number INPUT identifier list, 
where an identifier list is a sequence of identifiers separated by 
commas. There is no comma after the last identifier so, if only 
one identifier is present, no comma is needed. When an INPUT 
statement is executed, a colon (:) is output to the teletype to in¬ 
dicate that data are expected. The data are entered as numbers 
separated by commas. If fewer data are entered than expected, 
another colon is output to the teletype, indicating again that 
data are expected. For example, where 
50 INPUT l,J,K,P 

is executed, a colon is output to the teletype. Then, if only 3 
numerical values are entered, another colon will be output to in¬ 
dicate that more data are expected; e.g., 

:4,4,6.2 C/R 
:10.3 C/R 

where C/R is the carriage-return Key. If an error is made in the 
input-data line, an error message is issued and the entire line of 
data must be reentered. If, for the above example, 

:4,4,6M2,10.3 C/R 

is entered, the system will respond: 

INPUT ERROR, TRY AGAIN 

At this time, the proper response would be 
4,4,6.2,10.3 C/R. 

PRINT—This command allows numerical data and character strings 
to be printed on the teletype. Two types of print items are legal 
in the print statement: character strings enclosed in quotes (“) 
and expressions. These items are separated by either a comma 
or a semicolon. If print items are separated by a comma, a skip 
occurs to the next pre-formatted field before printing of the item 
following the comma begins. The pre-formatted fields begin at 
columns 1, 14, 27, 40, and 52. If print items are separated by a 
semicolon, no skip occurs. If a semicolon or comma is the last 
character on a print statement line, the appropriate formatting 
occurs and the carriage-return-line feed is suppressed. A print 
statement of the form 

50 PRINT 

will generate a carriage-return-line feed. Thus the two lines 
below 

50 PRINT “INPUT A NUMBER”; 

60 INPUT A 

will result in the following output: 

INPUT A NUMBER: 

FOR—Causes program to iterate through a loop a designated 
number of times. 
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NEXT—Signals end of loop at which point the computer adds 
the step value to the variable and checks to see if the variable is 
still less than the terminal value. 

GOSUB—Transfer control to a subroutine that begins at specified 
line number. 

RETURN—Returns control to the next sequential line after the last 
GOSUB statement executed. A return statement executed 
before GOSUB is equivalent to a STOP statement. 

CALL—Calls user-written assembly-language routines of the 
form 

CALL (N,A,B,. . .), 

where N is a subroutine number from 0-254 and A, B,... are 
parameters. The parameters can be constants, variables, or ex¬ 
pressions. However, if variables and constants or expressions 
are inter-mixed, all variables should have been referenced before 
the CALL statement. Otherwise, the space reserved for newly 
referenced variables may overwrite the results of constants and 
expressions. A memory map of one configuration of the system 
is shown below. 


Page 10 


Pointer to first word 
of available memory and 
subroutine table 


Page 43 Loc 370g 


The subroutine table contains 3-byte entries for each 
subroutine. The table directly follows the pointer to the first 
word of available memory (FWAM) and must end with a octal 
377. A sample table and its subroutines is shown below: 

ORG 16612Q 

DWSUBEND ;Define FWAM 

DB 1 Subroutine #1 

DW SUB1 Starting add of subroutine 

#1 

Subroutine #4 


Page 11 

ODT STACK 

BASIC 

INTERPRETER 

ACTIVE VAR'S. 


First word of-- 

USER SUB'S 

available 


memory 

USER SOURCE 


BASIC STK 


DB 4 
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DW SUB4 

;Starting add of subroutine 
#4 

DB 5 

;Subroutine #5 

DW SUB5 

;Starting add of subroutine 
#5 

DB 2 

;Subroutine #2 

DB SUB2 

;etc. 

DB 377Q 

;end of subroutine table 

SUB1:I 

;Subroutine #1 

RET 

SUB5:I 

;Subroutine #5 

RET 

• 

• 

RET 

;Retain last subroutine 

SUBEND EQU$ 

;FWAM 


Addresses to passed parameters are stored on 
the stack. The user must know how many 
parameters were passed to the subroutine. 

These must be taken off the stack before RET is 
executed. Addresses are stored last parameter 
first on the stack. Thus, on entry to a 
subroutine, the first POP instruction will 
recover the address to the last parameter in the 
call list. The next will recover the next to last, 
etc. 

Each scalar variable passed results in the ad¬ 
dress to the first byte of a four-byte block of 
memory. Each array element passes the ad¬ 
dress to the first byte of a (N-M) x four-byte 
memory block, where N is the number of 
elements given the array in the DIM STMT and 
M is the array subscript in the CALL STMT. 

For passed parameters to be handled in expres¬ 
sions within BASIC, they must be in the proper 
floating-point format. 

FUNCTIONS—Two special functions not found in most BASIC 
codes are available to input or output data through Intel 8080 port 
numbers. These functions are; 

GET (X)= READ 8080 INPUT PORT X. 

PUT (Y) = OUTPUT A BYTE OF DATA TO OUTPUT 

PORT Y. 

The function GET allows input from a port and the function PUT 
allows output to a port. Their general forms are: 

GET (expression). 

PUT (expression). 

The function GET may appear in statements in a position that implies 
that a numerical value is used. The function PUT may appear in 
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statements in a position that implies that a numerical value will be 
stored or saved. This is because GET inputs a number and PUT out¬ 
puts a number. For example, while 
LET PUT(I) = GET(J) is valid 
LET GET(I) = PUT(J) is invalid. 

These functions send or receive one byte of data, which in BASIC is 
treated as a number from 0 to 255. 

VARIABLES—Single characters A-Z 

Single character followed by a signal decimal digit 
NUMBERS—Numbers in a program statement or input via the 
teletype are handled with a floating-point package provided by LLL. 
Numbers can have any of the following forms: 

4 ±4. .123 

4. ±4.0 ±.123 

4.0 1.23 0.123 

±4 ±1.23 ±0.123 

and the user may add an exponent to any of the above forms using the 
letter E to indicate powers of 10. The forms of the exponent are: 

E± 1 E± 15 

El E 15 

El E 15 

The numbers are stored with seven-digit accuracy; therefore, seven 
significant figures can be entered. The smallest and largest numbers 
are ± 2.71051 E-20 and ±9.22337E18. 

Floating point numbers are expressed as a 32 bit operand con¬ 
sisting of a 24 bit normalized fractional mantissa in standard two’s 
complement representation and a 6 bit exponent also is standard 
two’s complement representation with a range of - 64 to + 63. The ex¬ 
ponent byte also includes the exponent sign bit and mantissa sign bit. 
The floating point number format is as shown in the following: 



< > Not Equal 

< Lih Than 

> Greater Than 
<■ Lest Than or Equal 
■> Greater Than or Equal 
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INTERPRETER OPERATION 

INITIALIZATION—The BASIC interpreter is presently configured so 
that it is located in memory pages 11 8 to 34 8 . The starting address is 
page 17 8 , location 0. This address begins an initialization sequence 
that allows the user to begin with a clear memory. However, to avoid 
the initialization sequence, a second starting address—page 17 a to 
34 8 —can be used. This starting address is used if the user wishes to 
retain any program that might exist in memory. 

Once started the interpreter responds with READY. 

INPUT LINE FORMAT 

Each line entered is terminated with the carriage-return key. The 
line-feed key is ignored. Carriage-return automatically step terminal 
to next line and waits for next line statement number input. 
Statements can be entered in any order, but they will be executed in 
numerical order. All blanks outside of quotation marks are ignored by 
the interpreter. Up to 72 characters may be entered/line. 

INPUT LINE EDITING—A program can be edited by using the line 
numbers to insert or delete statements. Typing a line number and then 
typing a carriage return causes the statement at that line number to 
be deleted. Since the statements can be entered in any order, a state¬ 
ment can be inserted between two existing statements by giving it a 
line number between the two existing statement line numbers. To 
replace a statement, the new statement should have the same line 
number as the old statement. 

It is possible to correct errors on a line being entered by either 
deleting the entire line or by deleting one or more characters on the 
line. A character is deleted with either the rubout key or the shift/O 
key. Several characters can be deleted by using the rubout key several 
times in succession. Character deletion is, in effect, a logical 
backspace. To delete the line you are currently typing, use the 
CNTRL/Y key. 

BASIC PROGRAM EXECUTION —Entering a RUN command, after a 
BASIC program has been entered into the microcomputer, will cause 
the current program to begin execution at the first statement number. 
RUN always begins at the lowest statement number. 

ERROR MESSAGES—If an unrecognizable command is entered, 
the word WHAT? is printed on the teletype. Simply retype the com¬ 
mand. It may also have been caused by a missing line number on a 
BASIC statement, in which case you should retype the statement with 
a line number. 

During program execution and whenever new lines are added to the 
program, a test is made to see if there is sufficient memory. If the 
memory is full, MEMORY FULL is printed on the teletype. At this point, 
you should enter one of the single digits below to indicate what you 
wish to do: 
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Number 

Entered Meaning 

0 (RUN) runs 

0 (RUN) runs the program in memory 

1 (PLST) outputs program in memory to 
paper tape punch 

2 (LIST) lists program in memory 

3 (SCR) erases program in memory 

4 none of the above (will cause WHAT? 
to be printed out on the teletype). 

To help you select the best alternative, a brief description of how 
the statements are manipulated in memory will be helpful. All lines 
entered as program are stored in memory. If lines are deleted or 
replaced, the originals still remain in memory. Thus, it is possible, if a 
great deal of line editing has been done, to have a significant portion 
of memory taken up with unused statements. If a MEMORY FULL 
message is obtained in these circumstances, then the best thing to do 
is punch a tape of the program (entering number 1), then erase the pro¬ 
gram memory with a SCR command (or a number 3, if memory is too 
full to accept commands), and then re-enter your program using the 
high-speed paper-tape reader with the PTAPE command. 

If an error is encountered while executing a program, an error 
message is typed out that indicates an error number and the line 
number in which the error occurred. These numbered error messages 
are as follows: 

Error 

Number Error Message 

1 Program has no END statement 

2 Unrecognizable keyword at beginning of state¬ 
ment 

3 Source statements exist after END statement 

4 Designation line number is improperly formed in a 
GOTO, GOSUB, or IF statement 

5 Designation line number in a GOTO, GOSUB, or IF 
statement does not exist 

6 Unexpected character 

7 Unfinished statement 

8 Illegally formed expression 

9 Error in floating-point conversion 

10 Illegal use of a function 

11 Duplicate array definition 

12 An array is referenced before it is defined 

13 Error in the floating-point-to-integer routine, 
Number is too big 

14 Invalid relation in an IF statement 
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LLL 8080 BASIC INTERPRETER PROGRAMS EXAMPLES 

PRINT STATEMENT PROGRAM EXAMPLE—The program below 
gives a few examples of the use of the print statement. 

1. PRINT*THE PRE-FQRMATTED COLUMNS ARE SHOWN BELOW* 
2 PRINT I,2r3r4,5 
4 PRINT 

10 PRINT * INPUT 1ST NUMBER* 

20 INPUT A 

30 PRINT * INPUT 2ND NUMBER* 

40 INPUT B 
50 PRINT 

60 PRINT“A IS* f A 
70 PRINT'S IS* JB 

80 PRINT“A IS* ?A5 *B IS *rB?*A+B IS*fA+B 
100 END 

THE PRE-FORMATTED COLUMNS ARE SHOWN BELOW 

1 2 3 4 5 

INPUT 1ST NUMBER 

2 

INPUT 2ND NUMBER 
3 

A IS 2 
BIS3- 

A IS 2 B IS 3 A+B IS 5 

PLOT FUNCTION PROGRAM—The following program plots a func¬ 
tion on a display. It uses four user-written assembly-language 
subroutines. The display works as follows: The contents of memory 
locations on pages 274 s to 277„ are displayed as 16 rows of 64 
characters each. Thus, if location 201 8 on page 274 contains 301„ 
(ASCII A), an A appears in column 2 of Row 3. An example of this pro¬ 
gram's execution is shown below: 

RUN 

WHAT SHOULD PLOT BE LABELED? MCS80—BASIC INTERPRETER 
READY 

The BASIC and assembly-language programs and the display out¬ 
put are shown below. 

BASIC PROGRAM 

Display output for Plot Function program. 

1 REM" THIS ROUTINE WILL PLOT A SET OF AXIS AND QUADRATIC FUNCTION 

2 REM* ON A DISPLAY AND THEN LABEL IT. IT USES A A USER WRITTEN 

3 REM* subroutines: 

4 REM 

5 REM" CALL!1rXrYrC) - PLACES C IN COLUMN X. ROW Y OF THE DISPLAY 
A REM 1 WHERE C IS AN ASCII CODED CHARACTER 

7 REM 

8 REM* CALL <2. A (0) > - READS A CHARACTER STRING FROM THE TTY AND STORES 
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9 REM" IT IN ARRAY A 

10 REM 

11 REM" CALL<3fA<0)) - WRITES THE CHARACTER STRING STORED IN ARRAY A 

12 REM" TO THE DISPLAY 

13 REM 

14 REM" CALL<4) - CLEARS THE DISPLAY 

15 REM 

16 REM" START OF PROGRAM 

17 REM 

18 REM* RESERVE STORAGE AREA FOR TITLE 
20 DIMA(10) 

30 REM’ CLEAR SCREEN 
40 CALL(4) 

SO REM" ASK FOR AND INPUT TITLE 
55 PRINT"WHAT SHOULD PLOT BE LABELED ?*i 
60 CALL (2 r A < 0 )) 

70 REM" DRAW AXIS 

80 GOSUB 500 

90 REM" PLOT FUNCTION 

100 LET X~ -29 

110 GOSUB 1000 

120 CALL <1»31+X»8-Yf248) 

130 LEXTX == X+l 
140 IF XX31 THEN 110 
150 REM* OUTPUT TITLE 
160 CALL < 3 f A(0)) 

165 REM" WE'RE DONE 
170 STOP 

500 REM" THIS SUB. WILL DRAW A SET OF AXIS 

505 LET X”1 

510 LET Y=7 

520 LETC=173 

530 CALL (lfX»Y»C) 

540 LETX-X+i 

550 IF XX65 THEN 530 

560 LET X=31 

570 LET Y-l 

575 LECTC-252 

580 CALL <1jX*YfC) 

590 LETY=Y+1 

600 IF Y>< 17 THEN 580 

610 RETURN 

1000 REM" GIVEN X THIS SUB. CALCULATES <17/900)*X**2-8 

1005 REM" FIRST CHECK IF X=0 AS IT WILL UPSET FLOATING POINTPACKAGE 

1010 IF X-9 THEN 1045 

1015 REM" WE'RE OK - CALCULATE FUNCTION 

1020 LET Y=X#X 

1025 LET K-17/900 

1030 LET Y-Y#K 

1035 LET Y=Y-8 

1040 RETURN 

1045 LETY=-8 

1050 RETURN 

2000 END 


.TITLE 'ASSEMBLY LANGUAGE PROGRAM' 



.LOG 

166140 



y 

DEFINE 

EXTERNALS 

FIX 

EQU 

140120 

5 FIX ROUTINE 

COPDH 

EQU 

132120 

f COPY ROUTINE 

FREG1 

EQU 

165670 

i FLOATING POINT 


DU 

SBEND 

y FUAM 


r 

ENTRIES 

IN SUB TABLE 


DB 

1 



DU 

SCOPE 



DB 

2 



DU 

SUB 2 



DB 

3 



DU 

SUB3 



DB 

4 



DU 

SUB4 
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DB 377Q* r NO MORE ENTRYS 

r THE CALL TO THIS ROUTINE IS OF THE FORM 

r CALL (1 X Y C> 

r THE VALUE OF C IS PLACED IN COLUMN X LINE Y 

r OF THE DISPLAY 


scope: 

POP 

D 

r 

ADDRESS OF CHARACTER 


LXI 

HrFREG1 

f 

COPY TO FREG.l 


CALL 

COF'DH 




XCHG 


r 

ADDRESS TO DE- 


CALL 

FIX 

r 

FIX IT 


INX 

D 




I NX 

D 

r 

POINT TO 4TH BYTE 


INX 

D 




LDAX 

D 

r 

GET CHARACTER 


MOV 

BrA 

r 

SAVE IT IN B 


POP 

D 

r 

ROW ADD 


LXI 

HrFREG1 

r 

COPY TO FREG1 


CALL 

COF'DH 




XCHG 





CALL 

FIX 

r 

FIX IT 


INX 

D 

r 

GET BYTE 4 TO A 


INX 

D 




INX 

D 




LDAX 

D 




MOV 

Cr A 

r 

SAVE IN C 


POP 

D 

r 

GET COLUMN ADD 


LXI 

HrFREG1 

r 

COPY TO FREG1 


CALL 

COF'DH 




XCHG 





CALL 

FIX 

r 

FIX IT 


INX 

D 

r 

POINT TO 4TH BYTE 


INX 

D 




INX 

D 




LDAX 

D 

r 

GET IT TO A 


r 

CALCULATION 

OF ADDRESS 


LXI 

Hr 1357770 



LXI 

Dr 1000 



lup: 

DCR 

C 




JZ 

AD INC 




DAD 

D 




JMP 

LUP 



ADINC: 

MOV 

Er A 




DAD 

D 

{ 

ADD IN COLUMN LOC 


MOV 

MrB 

f 

STORE CHARACTER 


RET 


r 

DONE 


T 

SUB2 READS 

A TITLE FROM TTY VIA ODT 

READ 

EGU 

3330 

r 

ODT ROUTINE- 

SUB2 * 

POP 

H 

r 

GET STORAGE AREA ADD 


PUSH 

H 




MVI 

CrO 

r 

INIT CNTR 

LUP2 * 

INX 

H 

r 

BUMP PNTR 


CALL 

READ 

f 

READ A CHARACTER 


CPI 

2150 

r 

CR? 


JZ 

DUN2 

r 

YES - DONE 


I NR 

C 

r 

INCR CNTR 


MOV 

M r A 

r 

SAVE CHARACTER 


JMP 

LUP 2 



DUN2: 

POP 

H 




MOV 

MrC 

r 

STORE CNT 


MVI 

X r 2120 

f 

SEND A LF 


RST 

6 
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RET 

i 

DONE 


r 

SUB3 WRITES 

TITLE TO DISPLAY 

subs: 

POP 

H f 

GET ADD 


LXI 

D t 1377410 



MOU 

CrM 



INX 

H 


LUP3S 

MOV 

ArM i 

SEND STRING 


STAX 

D 



INX 

H 



INX 

D 



DOR 

C 



JNX 

LUP3 



RET 

f 

SUB4 CLEARS 

SCREEN 

SUB 4: 

LXI 

Hr13A000G 



MVI 

A r 240Q r 

SPACE 


MVI 

Dr 0 t 

CNTR S 


MVI 

Cr 4 


LUP4* 

MOU 

M r A r 

CLEAR IT 


INX 

H 



OCR 

D 



JNZ 

LUP4 



BCR 

C 



JNZ 

LUP4 



RET 



SBEND 

EQU 

$ 



♦ END 




DESCRIPTION OF THE INTERPRETER 

Following is a brief description of the BASIC interpreter. Hopefully, 
with this description, it will not be a major project to modify the BASIC 
to satisfy the reader's specific needs. 

Formats—Source statements are stripped of blanks on input 
(character strings enclosed in quotes [”] are an exception) and stored 
as is in memory, using the following format: 


Binary equivalent Length of ASCII 

of line no. source statement 


i m n i tt - 

Forward pointer to ASCII source statement 
next sequential line 


The forward pointer links statements by ascending line numbers. The 
last line’s forward pointer (supposedly an end statement) has value 
177777„ to indicate end of the list. 

The symbol table is built up at run time and begins after the most 
recently entered source statement (the variable STSPAC points to 
where the symbol table will start). Symbol table entries are shown on 
the next page. 



14 


Best of Interface Age/Volume 1 


SCALAR-VARIABLE FORMAT 


ASCII 

letter 


)f 

T 


9-0 ASCII 
or bin 0 


Variable Forward 

name pointer 


Variable value 


ARRAY-VARIABLE FORMAT 



ASCII 

letter 


Array name Forward Array elements 

pointer 

Subroutines—Following is a list of potentially useful subroutines, 
with a brief description of each subroutine: 

ALPHA — Value pointed to by H and L is tested 
to see if it is an ASCII Letter. 

CY = 1 = >Yes 
CY = 0 = >No 

NUMB —Same as above but tests for a 
decimal number (ASCII 0-9). 

CHAR2 — Inputs a character from the teletype 
to a register. 

CHK1 —Checks to see if HL are equal to 
177777 8 (-1). 

CY = 1 =>Yes 
CY = 0 = >No 


CONV 

(CVRT) 

COPDH 

COPY 

CUB 


— One of the floating-point routines. 
Converts floating-point number to a 
character string. Output is padded to 
the output buffer. 

— Copies floating-pont number pointed 
to by D, E to location pointed to by H, 

L; uses copy. 

— One of the floating-point routines. 
Copies floating-point value pointed to 
by A, L to location pointed to by H, C. 

— Converts the integer-character string 
pointed to by H, L to its binary 
equivalent. Vale returns in D, E 
registers. 
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DCOMP — Double-byte comparison routine. 

Compares value in CB to the value in 
ED. 

Z =1 => CB = ED 

CY = 1 => CB>ED 

CY = 0 => CB«ED 

DFXL — One of the floating-point routines. 

Used to float an unsigned integer H, L 
point to first of four bytes; integer is 
right justified in first three bytes. 

EVAL — Evaluates an expression the first ele¬ 
ment of which is pointed to by H, L 
and the length of which is in C. Used 
to evaluate expressions wherever 

they are legal in BASIC. C usually 
contains the length of the source 
statement line containing the 
expression. 

FINPT —One of the floating-point routines. 

Converts character string to floating¬ 
point number. The variable HLINP 
contains a pointer to the character 
string, and the variable CREG con¬ 
tains the length of line containing 
character string. Mode =0 = > data 
comes from teletype (i.e., only 
delimiters are g’s). Mode = 1 => data 
comes from source statements. 

FIX — Fixes a floating-point number. DE 

points to number to be fixed. Error 
code 13 is given if number is too big 
to fix. 

FSYM — Finds symbols in symbol table. BC 
contains symbol. Returns with HL 
pointing to symbol value. 

CY = 1 = > symbol was found. 

CY = 0 and a scalar => symbol not 
found, but inserted and initialized to 
0. 

CY = 0 and an array => not found, no 
action taken: HL are meaningless. 

LADD — Floating-point add routine. 

LSUB — Floating-point subtract routine. 

LOIU — Floating-point divide routine. 

LMUL — Floating-point multiply routine. 
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LMCM 


MCHK 

MEMFUL 

MULT 

NSRCH 

OUTR 

PAD 

SYMSRT 


— One of the floating-point routines. 
Compares two floating-point values, 
HL Point to first floating-point values 
and HB point to second floating-point 
value. 

z =1=>Equality 
Cy = 1 = >first<second 
(Note: compares absolute only, does 
not reference mantissa sign.) 

— Waits for flag from port 3. Proper 
mask is sent in register B. 

— Checks to see if memory is full. HL 
point to location of memory to be 
checked. Memory is considered full if 
it is within 50,„ locations of the cur¬ 
rent value of stack pointer. 

— Multiplies two two-byte binary 
numbers. HL point to last byte of four 
bytes. First two contain first number. 
Last two contain second number. 
Answer returns to BCDE. 

— Routine to locate source line in 
memory passed binary value of line 
number in DE. Returns address of line 
in HL, CY = 1 = > not found. 

— Used by CONV (CURT) to pad output 
to output buffer. 

— Pads characters to output buffer. A 
contains character; B contains 
number of pads. 

— Checks a character string to see if it 
is a BASIC symbol. HL contains ad¬ 
dress pointing to 1st character of 
symbol, C contains length of line that 
contains symbol. A contains type of 
symbol sought. 

0 = command 1= keyword 

z = operator or delimiter 3 = function 
Returns with 377 8 in a register if 
nothing found. Otherwise A contains 
symbol number in appropriate KDAT 
table. Thus, for symbol type 2, if a 4 is 
returned, the symbol found was the 
fourth one (starting with 0) in table 
KDAT3 (KDAT concatenated with 2 
and 1 or A). CIS is updated, but HL is 
not. 
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TTYIW — Inputs a line from teletype. Stores 
starting address at location pointed 
to by HL. Line edits. Returns length of 
line in A register (maximum line 
length is 72 characters). 

VALUE — Called with HL pointing to A variable, 
constant, or function; C contains line 
length, returns with DE pointing to 
floating-point value. HL, C are up¬ 
dated. 

VAR — Called with HL pointing to character 

string, C has line length. Determines 
if character string is a variable. If so, 
returns with CY = 1, DE pointing to 
value (subscripts of arrays are 
evaluated, etc.). HL, C updated. If not, 
a variable returns CY = 0, HL, C un¬ 
touched. 

WRIT — Dumps contents of output buffer to 
teletype. Uses entry WRIT1 with D 
register equal to one to suppress 
CR/LF. 

ZROL — Part of floating-point subroutines. 

Writes a floating-point zero, starting 
at location pointed to by HL. 

The preceding list contains those subroutines most like¬ 
ly to be used by someone modifying BASIC. If you plan on 

using one of the routines, you should examine it and its 

comments carefully. 

Variables—Following is a list of interpreter variables, with a 
description of each variable: 

MEMST — Assembly time variable. Contains the 
first available RAM Location. This is 
where active variables start. 

MEMEND — Asembly time variable. Contains the 
last available location in RAM. 

SEND — Has value 6, used with RST instruc¬ 
tion to print characters via ODT. 

OBUFF — Output buffer, the first location con¬ 
tains the number of characters in the 
buffer +1. 

IBUF — Input buffer, occupies same area as 
OBUFF. 

STLINE — Points to first source line to be ex¬ 
ecuted. If no source, contains 
177777,. 
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NLINE, 

NL2, 

NL4, 

NL6 

KLINE, 

KL2, 

KL4, 

KL6 

PLINE, 

PL2, 

PL4, 

PL6 

KASE, 

LEN 

MULTI, 

MULT2 

SBSAV 


STSPAC 


LPNT 

CPNT 


KFPNT 


FREG1, 

FREG2 

HLINP, 

CREG 

NXTSP 


GREG 


MODE 


MESCR 


VARAD 


— Contain address, binary-equivalent 
line number, forward pointer, and 
length of next input line. 

— Same as above, but used by a 
subroutine that inserts lines in se¬ 
quential order (insert). 

— Subroutine insert to order statements 
sequentially. 


— Temporary storage for command 
mode routines. 

— Used to store binary values to be 
multiplied. 

— Temporary storage for call-statement 
processor. 

— Next available location in memory, 
symbol table starts here at run time. 

— Pointer to the current line at run time. 

— Pointer to current character in current 
line at run time. 

— Point to next sequential line at run 
time. 

— Two floating-point registers. 

— Temporary storage for HL and C 
registers for routine INP 

— Pointer to next available space of 
memory for symbol table. 

— General register, in and out instruc¬ 
tions are stored here and executed 
for get and put functions. 

— Indicates to INP routine whether in¬ 
put data comes from source or 
teletype. 

— Temporary storage for call-statement 
processor. Points to next available 
space after symbol table. Area after 
the symbol table is used to store in¬ 
termediate results of expressions or 
constants passed to user sub¬ 
routines. 

— Temporary storage space for input- 
statement processor. 
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VEND —Assembly time variable. Indicates 

end of interpreter variable-storage 
area and where FWAM pointer is to 
go. 

FWAM — First word of available memory 

pointer. This is where user source 
programs go. 

Some of the above variables occupy the same area of 
memory. This is because some variables are used only in 
the command mode and others only at runtime. To con¬ 
serve space, they share the same memory locations. 

New BASIC Statements—To add additional statements to the 
BASIC, use the following procedure. First, insert the statement 
keyword in the data tables for subroutine SYMSRT. Then, insert the 
starting address of the statement processor in the interpreter JUMP 
table. Finally, the statement processor itself must be inserted. 

The keyword must be entered in the table KDAT2. The first byte 
must be the keyword length and the next bytes hold the ASCII-coded 
keyword. The table must end with A 377„. If the keyword is the Nth en¬ 
try in the table, on return from SYMSRT, the A register will hold N-1 if 
the keyword is found. 

The starting address of the statement processor must be inserted 
into table JTBL. The order of keywords in KDAT2 must correspond 
with statement processor addresses in JTBL since, on return from 
SYMSRT, the A register times two is used as offset in JTBL to deter¬ 
mine processor address. 

The statement processor must be placed somewhere in memory. 
Generally, the first thing done in the statement processors is to load 
the pointer to the statement (LHLD CPNT) and increment past the 
keyword (since HL is not updated by SYMSRT). On entry, C contains 
the number of characters in the line minus those checked by SYMSRT. 
The end of the processor should be a “JMPIED” instruction. 

New Functions—New functions must be added to SYSSRT Data 
Table KDAT4 in the same manner as for key words. The function itself 
must be placed in subroutine “VALUE.” Presently, the only function in 
VALUE is GET. 

Message Lines—The following description tells how to incorporate 
messages into BASIC output routines. Currently, to output a message 
to the teletype, the user executes an LXI H.ODATA, then a call to FOR- 
MK where K is an integer indicating which message is wanted (i.e., 
K = z indicates “TURN ON PUNCH”) FORM pads the message into the 
output buffer. Then A “CALL WRIT” writes the contents of the buffer. 

Suppose the message “POTATO BASIC” is to be added. Preceding 
the form 9 instruction, we will insert “FORIO: INR L.” At the end of the 
ODATA table, we add “DB ODAT8 and 377Q.” And, after message 
ODAT 7, we add ODAT8 DB * 12, “POTATO BASIC.” Now, the follow¬ 
ing program segment: 
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LX I H.ODATA 

CALL FORIO 

CALL WRIT, 

will cause “POTATO BASIC” to be output to the teletype. 

ODT-80 is an octal debugging routine for use on the Intel 8080 
microprocessor. This routine provides the capability to examine and 
modify all of the memory that is available to the micro-computer and 
transfer program control to the created program. ODT-80 makes use 
of simple keyboard commands from any terminal—such as a 
teletypewriter—that is attached to the system. 

ODT-80 (Octal Debugging Technique) is a program written for the 
MCS-80 that allows the user to modify a program via a teletypewriter 
keyboard. The program occupies 400 octal words and must be located 
in the lowest memory page of the MCS-80 system, since the program 
uses the RESTART instructions. 

ODT has been proved to be an effective aid to debugging on 
microprocessors. The first version,' for the Intel 8080,* has been 
“front panel” for virtually hundreds of microprocessor applications. 
The author submits this ODT for the 8080 in hopes that the tradition of 
soft panels may be perpetuated. 

SYSTEM REQUIREMENTS 

All addresses of memory locations and contents of memory loca¬ 
tions are referred to in octal numbers. A question mark (?) will be 
typed for any illegal input. 

The minimum system requirements for using ODT are as follows: 

• MCS—80 computer set 

• ODT programmable read only memory (PROM) at memory page 

00fi B 

• 256 word (RAM) at page 010 8 

• Teletype interface with the following codes: 

OUT 2—SEND ASCII character 
IN 2—Input word from TTY 

Dt _Do. 

IN 3—Read Flags 11 111 111 (flag word) 

Sending Done_tt 

Word Received- 

UTILITY ROUTINES 

The following subroutines are available to the user as utility 
routines for other programs: 


Address 

Call 

Routine 

307 

RST ODT 

Restart ODT Program. This 
is useful for error branching 
in program debugging. 

367 

RST SEND 

Send the ASCII character 
presently in the “A” 
register. 
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315 CAL READ 

333 

0 

315 CALL CRLF 

370 

0 

315 CALOCTALP 
301 

0 


Wait for a character to be 
received from the teletype 
and return with the ASCII 
character in 

the “A” register. The “A” 
and “B” registers are used 
in this routine. 

Send a carriage return and 
a line feed to the 
teletypewriter. 

The “A” register is used in 
this routine. 

Send a space and type in 
Octal the three digit 
number in the “A” register. 

The A, B, and E registers 
are used in this routine. 


COMMANDS 

n e /) —The ASCII Slash (/) character is used to Open 
the n 8 address and type the contents in 
octal. 

(LF) —The ASCII Line Feed (LF) character is used 
to close the currently open address, and 
open the next sequential address. The con¬ 
tents of the open register may be changed by 
typing the octal number to be input and then 
typing a (CR). 

(.) —The ASCII Period (.) operator character may 
be used before the (/) operator to open the 
address last used. 

(n 8 S) —The SET command is used to set the H 
register to the memory page to be accessed. 
(EX) IDS ;H =010„ 

(n 8 R) —The READ operator is used to start a loader 
program in memory page No. 2, location 0. 

If this command is preceded by an “nS” 
command, the n value will be passed to the 
loader program in the H register. 

(n„G) —The GO routine is used to start a program in 
memory. The octal number typed before the 
“G” operator will set the starting address in 
memory. The “G” operator should be pre¬ 
ceded by an “nS” command to select the 
desired page. 
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(CTRL- 

C) —The ASCII Control C character is used to 

command the type out of the top two loca¬ 
tions in the stack. (See trap.) Leaves the 
stack pointer at its initial position -2. 

(CR) —The ASCII Carriage Return (CR) character is 
used to close the currently open address. 

TRAP 

The trap feature of ODT works as follows: When the central pro¬ 
cessor encounters a 377 s as an instruction, the processor decodes 
this as a restart to location 70 e in memory 0 8 . An example of this is 
when a nonexistent memory is addressed, or when a 377„ is placed in 
a program for a break point. At this time, ODT stores in the pushdown 
stack the address of the errant location and all of the registers. The 
trap indication is a “T” typed out on the teletypewriter. Control is now 
back in ODT and multiple Control-C’s (CTRL-C) typed by the operator 
will yield, in sets of two (One set for each CTRL-C Typed), the trapped 
information in the following format: 

ADDRESS 


ERROR +1_ REGISTERS 


PAGE 

NO. LOCATION A F 

B 

C D 

E 

H L 

XXX 

XXX 

.XXX XXX. .xxx 

XXX. XXX XXX XXX XXX 

The “F” 

• » 

register is the status flags of the 8080, with the format 

D 

D 

D 

shown in Fig. 1. 

D D D 

D 

D 



5 

4 

3 

2 

1 

0 

MSB 

(SIGN) 

ZERO 

FLAG 

D 

CARRY 

1 

0 

EVEN 

PARITY 

1 

CARRY 

2 


Figure 1. “F” register format. 

A CRTL-C typed at any time will type out the pushdown stack but 
not in the format shown above! The above format is only available im¬ 
mediately after a “T” has been sent by ODT. 

If a continuous string of “T” are sent to the TTY without stopping, 
this is an indication that the stack pointer is pointing at nonexistent 
memory. It will be necessary to restart ODT. 

RESTART/INTERRUPT LOCATIONS 

There are five segments of memory reserved in ODT for INTERRUPT 
or RESTART operation. These locations, shown in Fig. 2, contain 
jumps to the scratch RAM memory #10, used by ODT. This allows in- 
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terrupt service to be handled even though memory #0 is prepro¬ 
grammed to contain ODT. 



Figure 2. RESTART/INTERRUPT locations. 


STACK POINTER 

The stack pointer is reset to location 350, every time ODT is 
restarted via location 0 of ROM 0—in other words, whenever a “?” is 
sent by ODT. ODT and other programs use the stack pointer; 
therefore, memory locations plus and minus this location are apt to be 
overwritten. However, the stack pointer moves down in memory (high 
addresses to low addresses), so normal operation will keep the stack 
pointer in RAM 10 e . 
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EXAMPLE OF TYPICAL DEBUGGING OPERATION 


The following example illustrates a typical debugging operation. It 
is assumed that a program has been assembled and that the program 
is to be loaded by a loader in PROM 2. 

1. Set the memory field with the S command, and read the tape with 
the R command. 

IDS* ;SET MEMORY FIELD TO ID 

DR ;START READER ON TTY 

? ;WHEN TAPE IS READ IN ODT 

RESTARTS (startup of ODT 
depends upon the reader pro¬ 
gram in PROM 2) 


2. Start the program with the G command. 

IDS ;START PROGRAM AT LOCA¬ 

TION D 
DG 

TEST PROGRAM ;TYPED BY PROGRAM WITH AN ERROR 


3. Change location (30) to correct output. Restart ODT. 
? 

IDS 

30/327 322) ;CHANGE “W” TO AN “R” 


TEST PROGRAM '.CORRECTED OUTPUT 


EXAMPLE PROGRAM LISTING 


;0DT TEST PROGRAM 
;10-21-74 

000006 SEND EQU 6 

000370 CRLF EQU 370Q 


PROGRAM PROPER 


004000 



ORG 4000Q 


004000 

041 022 

010 

LXI H TABLE 

;SET UP ADDRESS 

004003 

176 

LOOP: 

MOV A,M 

;GET ENTRY 

004004 

376 000 


CPI 0 


004006 

312 016 

010 

JZ ND 

;IF 0 END OF LIST 

004011 

367 


RST SEND 

;TYPE CHARACTER 

004012 

043 


INX H 


004013 

303 003 

010 

JMP LOOP 

;LOOP 


004016 

315 370 

000 ND: 

CALL CRLF 

;SEND CRLF 

004021 

166 


HLT 


004022 

324 

TABLE: 

DB 324Q 

;T 

004023 

305 


DB 30SQ 

;E 

004024 

323 


DB 323Q 

;s 

00402S 

324 


DB 324Q 

;T 

004026 

340 


DB 240Q 

;SPACE 
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004027 

240 

DB 320Q 

P 

004030 

327 

DB 327Q 

N FOR ERROR 

004031 

317 

DB 317Q 

0 

004032 

307 

DB 307Q 

G 

004033 

322 

DB 322Q 

R 

004034 

301 

DB 301Q 

A 

004035 

315 

DB 315Q 

M 

004036 

0 

DB 0 




END 


PROGRAM ERRORS 







SYMBOL TABLE 





• 01 

A 

000007 

B 

000000 

c 

000001 

CRLF 

000370 

D 

000002 

E 

000003 

H 

000004 

L 

000005 

LOOP 

SEND 

004003 

000006 

M 

SP 

000006 

000006 

ND 

TABLE 

00401S 

004021 

PSW 

000006 


ODT-80 PROGRAM LISTING 


SAMPLE 

JUMP 

TABLE * 


SEND 

READ 

MCHK 

EQU 

EQU 

EQU 

344Q 

333Q 

1 13144Q 



ORG 

400Q 


SPNT : 
SUBAD: 
CONIN: 
CONOUT: 
STATUS: 
HSROR: 

DW 

DW 

JMP 

JMP 

JMP 

JMP 

37777Q 

SUBS 

READ 

SEND 

STAT 

HSR 



ORG 

500Q 


STAT : 

1 N 
RET 

3 

; READ STATUS PORT 

HSR: 

MV 1 
OUT 
CALL 
I N 
RET 

B, 4 

5 

MCHK 

5 


SUBS: 

DB 

377Q 



END 
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9369 CD 79 93 CSIGN: CALL MSFH ;SET A=SIGNCH,L) I E=SIGN(H,B) 

936C AB XRA E EXCLUSIVE OR SIGNS TO GET NEW SIGN 

936D CD 71 93 CALL CSTR ;STORE SIGN INTO RESULT 

9370 C9 RET ; RETURN 
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Chapter 2 


Dr. Wang’s Palo Alto 
Tiny Basic 

By Roger Rauskolb 


Tiny Basic was first proposed in Dr. Dobb's Journal. Li-Chen 
Wang’s version of Palo Alto Tiny Basic originally appeared in Issue 
No. 5, May 1976 of Dr. Dobb’s Journal. A complete listing was printed, 
but Dr. Wang did the assembly on an IBM computer and he defined 
different mnemonics. In order to assemble with an Intel Compatible 
Assembler a translation of most mnemonics had to be performed. 

I had developed my own system, which consists of two small p.c. 
boards, one containing the 8080 CPU, 4k of 2708 type EROM and 1K of 
RAM. The other PCB contained the RS-232 Interface using the Intel 
8251. So I wanted to change the I/O section. 

If you want to change I/O, all routines are contained in the OUTC 
and CHKIO routines. My system uses the following configuration: 


2708 

EROMS 

0000H 

TO 

07FFH 

Ik 

OF RAM 

1000H 

TO 

13FFH 

8251 

DATA PORT 

0FAH 



8251 

STATUS PORT 





Command 27H =2 stop bits parity disabled. 

Instruction 8 bit characters. 

Baud Rate Factor of 04. 

Mode OCFH =No Hunt Mode. Not (RTS) forced to 0. 

Instruction Receive Enabled Data Terminal Ready 

Transmit Enabled. 

Transmitter Ready Status Bit = Bit 0 (01H) 

Receiver Buffer Ready Status Bit = Bit 1 (02H) 

The program is contained in locations 0000H to 0768H. 

In IK of RAM 847 bytes are left over for program. 

Tiny Basic does not offer much in terms of functions and general 
mathematical capabilities. But it is great to teach programming basic 
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to children (and adults) and for games, since it has the RND function. 
It takes up little memory space and executes a lot faster than other 
basics. 

Dr. Wang was very helpful and assisted me all the way. Some errors 
were eliminated. I appreciate his help and he deserves a lot of credit 
for his implementation of Tiny Basic. 


THE TINY BASIC LANGUAGE 
Numbers 

In Tiny Basic, all numbers are integers and must be less than or 
equal to 32767. 

Variables 

There are 26 variables denoted by letters A through Z. There is also 
a single array @(1). The dimension of this array (i.e., the range of value 
of the index 1) is set automatically to make use of all the memory 
space that is left unused by the program, (i.e., 0 through SIZE/2, see 
SIZE function below.) 

Functions 

For the time being, there are only 3 functions: 

ABS(X) gives the absolute value of X. 

RND(X) gives a random number between 1 and X (inclusive). 
SIZE gives the number of bytes left unused by the program. 

Arithmetic and Compare Operators 

/ divide. Note that since we have integers only, 2 /3 = 0. 

* multiply. 

- subtract. 

+ add. 

> compare if greater than. 

< compare if less than. 

= compare if equal to. Note than to certain versions of Basic 
“LET A = B = O” means “set both A and B to O.” To this version 
of Tiny Basic, it means “set A to the result of comparing B with 
O.” 

# compare if not equal to. 

>= compare if greater than or equal to. 

< = compare if less than or equal to. 

+ and / operations result in a value of between -32767 and 
32767. All compare operators result in a 1 if true and a 0 if not true. 

Expressions 

Expressions are formed with numbers, variables, and functions 
with arithmetic and compare operators between them. + and - signs 
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can also be used at the beginning of an expression. The value of an 
expression is evaluated from left to right, except that * and / are 
always done first, and then + and -, and then compare operators. 
Parentheses can also be used to alter the order of evaluation. 


Statements 

A Tiny Basic statement consists of a statement number between 1 
and 32767 followed by one or more commands. Commands in the 
same statement are separated by a semi-colon “GOTO”, “STOP”, 
and “RETURN” commands must be the last command in any given 
statement. 


Program 

A Tiny Basic program consists of one or more statements. When a 
direct command “RUN” is issued, the statement with the lowest 
statement number is executed first, then the one with the next lowest 
statement number, etc. However, the “GOTO”, “GOSUB”, “STOP”, 
and “RETURN” commands can alter this normal sequence. Within the 
statement, execution of the commands is from left to right. The “IF” 
command can cause the execution of all the commands to its right in 
the same statement to be skipped over. 

Commands 

Tiny Basic commands are listed below with examples. Remember 
that commands can be concatenated with semi-colons. In order to 
store the statement, you must also have a statement number in front 
of the commands. The statement number and the concatenation are 
not shown in the examples. 

REM or REMARK Command 

REM anything goes 

This line will be ignored by TBI. 

LET Command 

LET A = 234 - 5*6, A = A/2, X = A-100, @(X + 9) = A-1 
will set the variable A to the value of the expression 234-5*6 (i.e., 
204), set the variable A (again) to the value of the expression A/2 (i.e., 
102), set the variable X to the value of the expression A-100 (i.e., 2), and 
then set the variable @(11) to 101 (where 11 is the value of the expres¬ 
sion X + 9 and 101 is the value of the expression A - 1). 

LET U = A#B, V = (A>B)*X + (A<B)*Y 

will set the variable U to either 1 or 0 depending on whether A is not 
equal to or is equal to B; and set the variable V to either X, Y or 0 
depending on whether A is greater than, less than, or equal to B. 
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PRINT Command 
PRINT 

will cause a carriage-return (CR) and a line-feed (LF) on the output 
device. 

PRINT A*3 + 1,“ABC 123 !@#”,‘CBA’ 

will print the value of the expression A*3 + 1 (i.e., 307), the string of 
characters “ABC 123 !@#”, and the string “CBA”, and then a CR-LF. 
Note that either single or double quotes can be used to quote strings, 
but pairs must be matched. 

PRINT A*3 + 1,“ABC 123 !@#”,‘CBA’, 

will produce the same output as before, except that there is no CR-LF 
after the last item is printed. This enables the program to continue 
printing on the same line with another “PRINT”. 

PRINT A, B, #3, C, D, E, #10, F, G 

will print the values of A and B in 6 spaces, the values of C, D, and E in 
3 spaces, and the values of F and G in 10 spaces. If there are not 
enough spaces specified for a given value to be printed, the value will 
be printed with enough spaces anyway. 

PRINT ‘ABC’,-,‘XXX’ 

will print the string “ABC”, a CR without a LF, and then the string 
“XXX” (over the ABC) followed by a CR-LF. 

INPUT Command 
INPUT A,B 

When this command is executed, Tiny Basic will print “A:” and wait to 
read in an expression from the input device. The variable A will be set 
to the value of this expression. Then “B:” is printed and variable B is 
set to the value of the next expression read from the input device. 
Note that not only numbers, but also expressions can be read as in¬ 
put. 

INPUT ‘WHAT IS THE WEIGHT’A, “AND SIZE”B 

This is the same as the command above, except the prompt “A:” is 
replaced by “WHAT IS THE WEIGHT:” and the prompt “B:” is replaced 
by “AND SIZE:”. Again, both single and double quotes can be used as 
long as they are matched. 

INPUT A, ‘STRING’,-.“ANOTHER STRING”,B 

the strings and the ” have the same effect as in “PRINT”. 

IF Command 

IF A<B LET X = 3; PRINT ‘THIS STRING’ 

will test the value of the expression A<B. If it is not zero (i.e., if it is 
true), the commands in the rest of this statement will be executed. If 
the value of the expression is zero (i.e., if it is not true), the rest of this 
statement will be skipped over and execution continues at next state¬ 
ment. Note that the word “THEN” is not used. 
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GOTO Command 

GOTO 120 

will cause the execution to jump to statement 120. Note that GOTO 
command cannot be followed by a semi-colon and other commands. It 
must be ended with a CR. 

GOTO A*10 + B 

will cause the execution to jump to a different statement number as 
computed from the value of the expression. 

GOSUB and RETURN Commands 

GOSUB command is similar to GOTO command except that: a) the 
current statement number and position within the statement is 
remembered; and b) a semi-colon and other commands can follow it in 
the same statement. 

GOSUB 120 

will cause the execution to jump to statement 120. 

GOSUB A*10 + B 

will cause the execution to jump to different statements as computed 
from the value of the expression a*10 + B. 

RETURN 

A RETURN command must be the last command in a statement and 
followed by a CR. When a RETURN command is encountered, it will 
cause the execution to jump back to the command following the most 
recent GOSUB command. 

GOSUB can be nested. The depth of nesting is limited only by the 
stack space. 

LIST 

will print out all the statements in numerical order. 

LIST 120 

will print out all the statements in numerical order 120. 

NEW 

will delete all the statements. 

Stopping the Execution 

The execution of program or listing of program can be stopped by 
the Control-C key on the input device. 

Abbreviation and blanks 

You may use blanks freely, except that numbers, command key 
words, and function names can not have embedded blanks. 

You can truncate all command key words and function names and 
follow each by a period. "P.”, “PR.”, “PRI.”, and “PRIN.” all stand for 
“PRINT." Also the word LET in LET command can be omitted. The 
“shortest” abbreviation for all the key words are as follows: 
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A. = ABS 
IF = IF 
N. = NEXT 

R. = RND 

S. = STOP 
Implied = LET 


F. = FOR 
IN. = INPUT 
P. = PRINT 
R. = RUN 
TO = TO 


GOS. = GOSUB 
L. = LIST 
REM.=REMARK 
S. = SIZE 


G. = GOTO 
N. = NEW 

R. = RETURN 

S. = STEP 


Control of Output Device 

The Control-O key on the input device can be used to turn the output 
device ON and OFF. This is useful when you want to read in a program 
punched on paper tape. 

To produce such a paper tape, type “LIST” without CR. Turn on the 
paper tape punch and type a few Control-Shift-P's and then a CR. 
When listing is finished, type more Control-Shift-P’s and turn off the 
punch. 

To read back such a paper tape, type "NEW,” CR, and Control-O, 
then turn on the paper tape reader. When the paper tape is finished, 
turn it off and type a Control-0 again. 

Control-Shift-P’s and turn off the punch 

To read back such a paper tape, type “NEW," CR, and Control-?, 
then turn on the paper tape reader. When the paper tape is finished, 
turn it off and type a Control-O, then turn on the paper tape reader. 
When the paper tape is finished, turn it off and type a Control-0 again. 


Error Report 

There are only three error conditions in TINY BASIC. The statement 
with the error is printed out with a question mark inserted at the point 
where the error is detected. 

(1) WHAT? means it does not understand you. Example: 

WHAT? 210 P?TINT “THIS” where PRINT is mistyped 

WHAT? 260 LET A= B + 3, C=<3 + 4), X = 4 

(2) HOW? means it understands you but does not know how to do it. 

HOW? 310LET A = B*C? + 2 where B*C is larger than 32767 

HOW? 380 GOTO 412? where 412 does not exist 

(3) SORRY means it understands you and knows how to do it but 
there is not enough memory to do it. 

Error Corrections 

If you notice an error in typing before you hit the CR, you can delete 
the last character by the Rub-Out key or delete the entire line by the 
Alt-Mode key. Tiny basic will echo a back-slash for each Rub-Out. 
Echo for Alt-Mode consists of a LF, a CR, and an up-arrow. 

To correct a statement, you can retype the statement number and 
the correct commands. Tiny Basic will replace the old statement with 
the new one. 
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To delete a statement, type the statement number and a CR only. 
Verify the corrections by “LIST nnnn” and hit the Control-C key 
while the line is being printed. 

FOR and NEXT Commands 

FOR X = A+ 1 TO 3*B STEP C-1 

The variable X is set to the value of the expression A +1. The values 
of the expressions (not the expressions themselves) 3*B and C-1 are 
remembered. The name of the variable X, the statement number and 
the position of this command within the statement are also 
remembered. Execution then continues the normal way until a NEXT 
command is encountered. 

The STEP can be positive, negative or even zero. The word STEP and 
the expression following it can be omitted if the desired STEP is +1. 
NEXT X 

The name of the variable (X) is checked with that of the most recent 
FOR command. If they do not agree, that FOR is terminated and the 
next recent FOR is checked, etc. When a match is found, this variable 
will be set to its current value plus the value of the STEP expression 
saved by the FOR command. The updated value is then compared with 
the value of the TO expression also saved by the FOR command. If 
this is within the limit, execution will jump back to the command 
following the FOR command. If this is outside the limit, execution 
continues following the NEXT command itself. 

FOR can be nested. The depth of nesting is limited only by the stack 
space. If a new FOR command with the same control variable as that 
of an old FOR command is encountered, the old FOR will be ter¬ 
minated automatically. 

STOP Command 

STOP 

This command stops the execution of the program and returns con¬ 
trol to direct commands from the input device. It can appear many 
times in a program but must be the last command in any given state¬ 
ment, i.e., it cannot be followed by semi-colon and other commands. 

Direct Commands 

As defined earlier, a statement consists of a statement number 
followed by commands. IF the statement number is missing, or if it is 
0, the commands will be executed after you have typed the CR. All the 
commands described above can be used as direct commands. There 
are three more commands that can be used as direct command but 
not as part of a statement: 

RUN 

will start to execute the program starting at the lowest statement 
number. 



146 


Best of Interface Age/Volume 1 


CP/M MACRO ASSEM 2.0 *001 TINY BASIC FOR INTEL 8080 

itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 

TITLE 'TINY BASIC FOR INTEL 8080' 


;* 

VERSION 1.0 

it 

BY LI-CHEN WANG 

it 

10 JUNE* 1976 

it 

0COPYLEFT 

it 

ALL WRONGS RESERVED 

it 



itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 

*t fttt ZERO PAGE SUBROUTINES *** 

it 

it THE 8080 INSTRUCTION SET LETS YOU HAVE 8 ROUTINES IN LOW 
it MEMORY THAT MAY BE CALLED BY RST Nr N BEING 0 THROUGH 7, 
it THIS IS A ONE-BYTE INSTRUCTION AND HAS THE SAME POWER AS 
f * THE THREE-BYTE INSTRUCTION CALL LLHH. TINY BASIC WILL 
it USE RST 0 AS START AND RST 1 THROUGH RST 7 FOR 
it THE SEVEN MOST FREQUENTLY USED SUBROUTINES. 
it TWO OTHER SUBROUTINES <CRLF AND TSTNUM) ARE ALSO IN THIS 
it SECTION. THEY CAN BE REACHED ONLY BY 3-BYTE CALLS. 
it IN ORDER TO CONFIGURE THE SYSTEM FOR USE WITH CPM I HAVE 
it MOVED SOME OF THE ROUTINES AROUND. START WILL NOW BE AT 
it LOCATION 100H AND THIS SECTION WILL END AT LOCATION 3FH 
it WITH A JUMP TO 108H. 
f * 




» 

ORG 

XTHL 

8H 

;*** TSTC OR RST 1 *** 



» 

RST 

5 

* IGNORE BLANKS AND 



i 

CMP 

M 

i TEST CHARACTER 




JMP 

TCI 

fREST OF THIS IS AT TCI 



i CRLF 

MV I 

A»ODH 

;*** CRLF ttt 



* ♦ 

i 

PUSH 

F'SW 

ittt OUTC OR RST 2 ttt 



r 

LDA 

OCSU 

i PRINT CHARACTER ONLY 



i 

ORA 

A 

fIFF OCSW SWITCH IS ON 



i 

JMP 

0C2 

fREST OF THIS IS AT 0C2 



* ♦ 

r 

CALL 

EXPR2 

ittt EXPR OR RST 3 *** 



i 

PUSH 

H 

i EVALUATE AN EXPRESION 



r 

JMP 

EXPR1 

fREST OF IT IS AT EXPR1 




DB 

'W' 




it 

MOV 

A * H 

ittt COMP OR RST 4 *** 



i 

CMP 

D 

i COMPARE HL WITH DE 



i 

RNZ 


fRETURN correct c and 



r 

MOV 

A*L 

iz FLAGS 



i 

CMP 

E 

* BUT OLD A IS LOST 



i 

RET 





i 

DB 

'AN' 




i t 

i ssi 

LDAX 

D 

ittt IGNBLK/RST 5 *** 



i 

CPI 

40Q 

* IGNORE BLANKS 



i 

RNZ 


*IN TEXT (WHERE DE->> 



i 

I NX 

D 

fAND RETURN THE FIRST 



i 

JMP 

SSI 

fNON-BLANK CHAR. IN A 



it 

i 

POP 

PSW 

ittt FINISH/RST 6 *** 



i 

CALL 

FIN 

f CHECK END OF COMMAND 



i 

JMP 

QWHAT 

rPRINT ’WHAT?* IFF WRONG 



i 

DB 

'G' 




it 

i 

RST 

5 

ittt TSTV OR RST 7 *** 



i 

SUI 

1000 

f TEST VARIABLES 




RC 


fCINOT A VARIABLE 




JMP 

tstvi 

f JUMP AROUND RESERVED AREA 

0100 



ORG 

100H 

* OF CPM. 

0100 

C3A00A 

START 

JMP 

NINIT 

* GO TO INITIALIZATION ROUTINE 

0103 

C21F01 

TSTV1 

JNZ 

TV1 

fNOT "0" ARRAY 

0106 

13 


INX 

D 

*IT IS THE "0" ARRAY 

0107 

CDBC06 


CALL 

PARN 

f <? SHOULD BE FOLLOWED 

010A 

29 


DAD 

H 

* BY (EXPR) AS ITS INDEX 

010B 

DA6601 


JC 

QHOW 

fIS INDEX TOO BIG? 

010E 

DS 


PUSH 

d 

fWILL IT OVERWRITE 

010F 

EB 


XCHG 


fTEXT? 

0110 

CDFE06 


CALL 

SIZE 

fFIND size of free 

0113 

E7 


RST 

4 

fAND check that 

0114 

DA0E08 


JC 

ASORRY 

fIFF SOf SAY "SORRY* 

0117 

21000F 

SSI A 

LXI 

HfVARBGN 

fIFF NOTf get address 
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011A 

CD9C07 


CALL 

SUBDE 

i OF 0(EXPR) AND PUT IT 

01 ID 

D1 


POP 

D 

fIN HL 

01 IE 

C9 


RET 


;c FLAG IS CLEARED 

01 IF 

FE1B 

TV1 

CPI 

330 

i NOT Qt IS IT A TO Z? 

0121 

3F 


CMC 


ilFF NOT RETURN C FLAG 

0122 

D8 


RC 



0123 

13 


I NX 

D 

i IFF A THROUGH Z 

0124 

21000F 

TV1A 

LXI 

HfVARBGN i COMPUTE ADDRESS OF 

0127 

07 


RLC 


i THAT VARIABLE 

0128 

85 


ADD 

L 

fAND RETURN IT IN HL 

0129 

6F 


MOV 

L» A 

i WITH C FLAG CLEARED 

012A 

3E00 


MVI 

A r 0 


012C 

8C 


ADC 

H 


012D 

67 


MOV 

Hf A 


012E 

C9 

it 

it 

RET 





TSTC 

XCH 

HLf(SP) ittt TSTC OR RST 1 



it 


IGNBLK 

THIS IS AT LOC. 8 



it 


CMP 

M AND THEN JMP HERE 

012F 

23 

TCI 

INX 

H 

i COMPARE THE BYTE THAT 

0130 

CA3A01 


JZ 

TC2 

f FOLLOWS THE RST INST. 

0133 

C5 


PUSH 

B 

fWITH THE TEXT (DE->> 

0134 

4E 


MOV 

CfM 

fIFF NOT =r ADD THE 2ND 

0135 

0600 


MVI 

BfO 

fBYTE THAT FOLLOWS THE 

0137 

09 


DAD 

B 

fRST TO THE OLD PC 

0138 

Cl 


POP 

B 

?I.E.f DO A RELATIVE 

0139 

IB 


DCX 

D 

i JUMP IFF NOT = 

013A 

13 

TC2 

INX 

D 

JIFF = f SKIP THOSE BYTES 

013B 

23 


INX 

H 

fAND CONTINUE 

013C 

E3 


XTHL 



013D 

C9 


RET 



013E 

210000 

TSTNUM 

LXI 

HfO 

f*** TSTNUM *** 

0141 

44 


MOV 

BfH 

fTEST IFF THE TEXT IS 

0142 

EF 


RST 

5 

fA NUMBER 

0143 

FE30 

TNI 

CPI 

60Q 

fIFF NOTf RETURN 0 IN 

0145 

D8 


RC 


fB AND HL 

0146 

FE3A 


CPI 

72Q 

fIFF NUMBERSf CONVERT 

0148 

DO 


RNC 


iTO BINARY IN HL AND 

0149 

3EF0 


MVI 

A f 360Q 

f SET A TO * OF DIGITS 

014B 

A4 


ANA 

H 

fIFF H>255 r THERE IS NO 

014C 

C26601 


JNZ 

QHOU 

fROOM FOR NEXT DIGIT 

014F 

04 


I NR 

B 

fB COUNTS ♦ OF DIGITS 

0150 

C5 


PUSH 

B 


0151 

44 


MOV 

BfH 

fHL=10f*HL+(NEW DIGIT) 

0152 

4D 


MOV 

C»L 


0153 

29 


DAD 

H 

fUHERE 10f* IS DONE BY 

0154 

29 


DAD 

H 

fSHIFT AND ADD 

0155 

09 


DAD 

B 


0156 

29 


DAD 

H 


0157 

1A 


LDAX 

D 

fAND (DIGIT) IS FROM 

0158 

13 


INX 

D 

fSTRIPPING THE ASCII 

0159 

E60F 


AN I 

170 

fCODE 

015B 

85 


ADD 

L 


015C 

6F 


MOV 

Lf A 


015D 

3E00 


MVI 

AfO 


015F 

8C 


ADC 

H 


0160 

67 


MOV 

Hf A 


0161 

Cl 


POP 

B 


0162 

1A 


LDAX 

D 

i DO THIS DIGIT AFTER 

0163 

F24301 


JP 

TNI 

fDIGIT. S SAYS OVERFLOW 

0166 

D5 

QHOU 

PUSH 

D 

F*** error: ■how?■ *** 

0167 

116D01 

AHOW 

LXI 

DfHOU 


016A 

C3E407 


JMP 

ERROR 


016D 

484F573F0DH0W 

DB 

'HOU?'i 

pODH 

0172 

4F4B0D 

OK 

DB 

'OK'fODH 

0175 

574841543FUHAT 

DB 

'WHAT?' 

' fODH 

017B 

534F525 

259S0RRY 

DB 

'SORRY" 

' fODH 


f* 

;t**********************t************$:*t *********************** 
it 

it ttt MAIN *** 
it 

it THIS IS THE MAIN LOOP THAT COLLECTS THE TINY BASIC PROGRAM 
it AND STORES IT IN THE MEMORY. 

»* i 

it AT START * IT PRINTS OUT *(CR)OK(CR)■ f AND INITIALIZES THE 
it STACK AND SOME OTHER INTERNAL VARIABLES. THEN IT PROMPTS 
it *>" AND READS A LINE. IFF THE LINE STARTS UITH A NON-ZERO 
it NUMBER r THIS NUMBER IS THE LINE NUMBER. THE LINE NUMBER 
?* (IN 16 BIT BINARY) AND THE REST OF THE LINE (INCLUDING CR> 
it IS STORED IN THE MEMORY. IFF A LINE UITH THE SAME LINE 
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i* NUMBER IS ALREDY THERE r IT IS REPLACED BY THE NEW ONE. IF 
it THE REST OF THE LINE CONSISTS OF A ODHONLY ? IT IS NOT STORED 
it AND ANY EXISTING LINE WITH THE SAME LINE NUMBER IS DELETED. 
it 

it AFTER A LINE IS INSERTED ? REPLACEDr OR DELETEDr THE PROGRAM 
it LOOPS BACK AND ASK FOR ANOTHER LINE. THIS LOOP WILL BE 
it TERMINATED WHEN IT READS A LINE WITH ZERO OR NO LINE 
it NUMBER; AND CONTROL IS TRANSFERED TO * DIRCT■, 

;* 

;* TINY BASIC PROGRAM SAVE AREA STARTS AT THE MEMORY LOCATION 
it LABELED “TXTBGN* AND ENDED AT * TXTEND*. WE ALWAYS FILL THIS 
it AREA STARTING AT * TXTBGN *r THE UNFILLED PORTION IS POINTED 
?* BY THE CONTENT OF A MEMORY LOCATION LABELED ’TXTUNF*. 

;* 


it THE MEMORY LOCATION ’CURRNT* POINTS TO THE LINE NUMBER 
it THAT IS CURRENTLY BEING INTERPRETED. WHILE WE ARE IN 
J* THIS LOOP OR WHILE WE ARE INTERPRETING A DIRECT COMMAND 
it (SEE NEXT SECTION)r ’CURRNT* SHOULD POINT TO A 0. 
it 


0181 

310020 

RSTART 

LXI 

SPrSTACK 

fSET STACK POINTER 

0184 

CDOEOO 

ST1 

CALL 

CRLF 

fAND JUMP TO HERE 

0187 

117201 


LXI 

D» OK 

f DE->STRING 

018A 

97 


SUB 

A 

r A=0 

018B 

CD7F08 


CALL 

PRTSTG 

rPRINT STRING UNTIL ODH 

018E 

219501 


LXI 

H r ST2+1 

rLITERAL 0 

0191 

22C109 


SHLD 

CURRNT 

i CURRNT->LINE * = 0 

0194 

210000 

ST2 

LXI 

HrO 


0197 

22C909 


SHLD 

LOPVAR 


019A 

22C309 


SHLD 

STKGOS 


019D 

3E3E 

ST3 

MVI 

A r 76Q 

i PROMPT '>' AND 

019F 

CD1408 


CALL 

GETLN 

r READ A LINE 

01A2 

D5 


PUSH 

D 

i DE->END OF LINE 

01 A3 

11370F 

ST3A 

LXI 

D»BUFFER 

rDE->BEGINNING OF LINE 

01A6 

CD3E01 


CALL 

TSTNUM 

rTEST IFF IT IS A NUMBER 

01A9 

EF 


RST 

5 


01AA 

7C 


MOV 

ArH 

?HL=VALUE OF THE # OR 

01AB 

B5 


ORA 

L 

rO IFF NO # WAS FOUND 

01 AC 

Cl 


POP 

B 

fBC->END OF LINE 

01 AD 

CAD502 


JZ 

DIRECT 


01B0 

IB 


DCX 

D 

i BACKUP DE AND SAVE 

01B1 

7C 


MOV 

ArH 

;VALUE OF LINE # THERE 

01B2 

12 


STAX 

D 


01B3 

IB 


DCX 

D 


01B4 

7D 


MOV 

A»L 


01B5 

12 


STAX 

D 


01B6 

C5 


PUSH 

B 

r BC r DE~>BEGIN r END 

01B7 

D5 


PUSH 

D 


01B8 

79 


MOV 

ArC 


01B9 

93 


SUB 

E 


01 BA 

F5 


PUSH 

PSW 

i A--# OF BYTES IN LINE 

01BB 

CD5708 


CALL 

FNDLN 

fFIND THIS LINE IN SAVE 

01BE 

D5 


PUSH 

D 

rAREAr DE->SAVE AREA 

01BF 

C2D201 


JNZ 

ST 4 

rNZJNOT FOUNDr INSERT 

01C2 

D5 


PUSH 

D 

i Z{FOUNDr DELETE IT 

01C3 

CD7308 


CALL 

FNDNXT 

rFIND NEXT LINE 



r* 

DE->NEXT LINE 


01C6 

Cl 


POP 

B 

i BC->LINE TO BE DELETED 

01C7 

2AD509 


LHLD 

TXTUNF 

fHL->UNFILLED SAVE AREA 

01CA 

CD0009 


CALL 

MVUP 

r MOVE UP TO DELETE 

01CD 

60 


MOV 

Hr B 

rTXTUNF->UNFILLED AREA 

01CE 

69 


MOV 

LrC 


01CF 

22D509 


SHLD 

TXTUNF 

rUPDATE 

01D2 

Cl 

ST4 

POP 

B 

;get ready to insert 

01D3 

2AD509 


LHLD 

TXTUNF 

fBUT FIRT CHECK IF 

01 DA 

FI 


POP 

PSW 

rTHE LENGTH OF NEW LINE 

01D7 

E5 


PUSH 

H 

rIS 3 (LINE # AND CR) 

01D8 

FE03 


CPI 

3 

r THEN DO NOT INSERT 

01 DA 

CA8101 


JZ 

RSTART 

r MUST CLEAR THE STACK 

01DD 

85 


ADD 

L 

i COMPUTE NEW TXTUNF 

01DE 

6F 


MOV 

Lr A 


01PF 

3E00 


MVI 

ArO 


01E1 

8C 


ADC 

H 


01E2 

67 


MOV 

HrA 

rHL->NEW UNFILLED AREA 

01E3 

11000F 

ST4A 

LXI 

Dr TXTEND 

rCHECK TO SEE IF THERE 

01E6 

E7 


RST 

4 

fIS ENOUGH SPACE 

01E7 

D20D08 


JNC 

QSORRY 

fSORRYr NO ROOM FOR IT 

01EA 

22D509 


SHLD 

TXTUNF 

i OK r UPDATE TXTUNF 

01 ED 

D1 


POP 

D 

rDE->OLD UNFILLED AREA 

01EE 

CD0909 


CALL 

MVDOWN 


01F1 

D1 


POP 

D 

i DE->BEGINr HL->END 

01F2 

El 


POP 

H 


01F3 

CD0009 


CALL 

MVUP 

rMOVE NEW LINE TO SAVE 

01FA 

C39D01 


JMP 

ST3 

r AREA 
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»* 

i***********™************************************************* 

»* 

}* *** TABLES *** DIRECT *** & EXEC *** 

»* 

** THIS SECTION OF THE CODE TESTS A STRING AGAINST A TABLE. 

5* WHEN A MATCH IS FOUND, CONTROL IS TRANSFERED TO THE SECTION 
i* OF CODE ACCORDING TO THE TABLE. 

}* 

i* AT 'EXEC', DE SHOULD POINT TO THE STRING AD HL SHOULD POINT 
?* TO THE TABLE-1. AT 'DIRECT', DE SHOULD POINT TO THE STRING , 
r# HL WILL BE SET UP TO POINT TO TABl-l, WHICH IS THE TABLE OF 
i* ALL DIRECT AND STATEMENT COMMANDS. 

;* 

a IN THE STRING WILL TERMINATE THE TEST AND THE PARTIAL 

f* MATCH WILL BE CONSIDERED AS A MATCH. E.G.r 'P.', 'PR.', 
r* 'PRI.'i 'PRIN.'» OR 'PRINT' WILL ALL MATCH 'PRINT'. 

, * 

?* THE TABLE CONSISTS OF ANY NUMBER OF ITEMS. EACH ITEM 
>* IS A STRING OF CHARACTERS WITH BIT 7 SET TO 0 AND 
t* A JUMP ADDRESS STORED HI-LOW WITH BIT 7 OF THE HIGH 
i* BYTE SET TO 1. 
i* 

?* END OF TABLE IS AN ITEM WITH A JUMP ADDRESS ONLY. IFF THE 
STRING DOES NOT MATCH ANY OF THE OTHER ITEMS, IT WILL 
i* MATCH THIS NULL ITEM AS DEFAULT. 

»* 

01F9 = TAB1 EQU $ fDIRECT COMMANDS 

01F9 4C495354 DB 'LIST' 

OlFD 8420 DB LIST SHR 8 + 128,LIST AND OFFH 

01FF 52554E DB 'RUN' 

0202 8315 DB RUN SHR 8 + 128,RUN AND 255 

0204 4E4557 DB 'NEW' 

0207 8306 DB NEW SHR 8 + 128,NEW AND 255 

0209 4C4F4144 DB 'LOAD' 


020D 

8343 

DB 

DLOAD SHR 8 + 128,BL0AD AND 255 

020F 

53415645 

DB 

'SAVE' 

0213 

838A 

DB 

DSAVE SHR 8 + 128»DSAVE AND 255 

0215 

4259458000 

DB 

'BYE',80H t OH ?G0 BACK TO CPM 

021A 

= TAB2 

EQU 

* JDIRECT/TATEMENT 

021A 

4E455854 

DB 

'NEXT' 

021E 

8508 

DB 

NEXT SHR 8 + 128,NEXT AND 255 

0220 

4C4554 

DB 

'LET' 

0223 

85C8 

DB 

LET SHR 8 + 128,LET AND 255 

0225 

4F5554 

DB 

'OUT' 

0228 

870B 

DB 

OUTCMD SHR 8 + 128,0UTCMD AND 255 

022A 

504F4B45 

DB 

'POKE' 

022E 

8747 

DB 

POKE SHR 8 + 128,POKE AND 255 

0230 

57414954 

DB 

'WAIT' 

0234 

871F 

DB 

WAITCM SHR 8 + 128,WAITCM AND 255 

0236 

4946 

DB 

'IF' 

0238 

8559 

DB 

IFF SHR 8 + 128,IFF AND 255 

023A 

474F544F 

DB 

'GOTO' 

023E 

8334 

DB 

GOTO SHR 8 + 128,GOTO AND 255 

0240 

474F535542 

DB 

'GOSUB' 

0245 

8470 

DB 

GOSUB SHR 8 + 128,GOSUB AND 255 

0247 

5245545552 

DB 

'RETURN' 

024D 

8490 

DB 

RETURN SHR 8 + 128,RETURN AND 255 

024F 

52454D 

DB 

' REM' 

0252 

8555 

DB 

REM SHR 8 + 128,REM AND 255 

0254 

464F52 

DB 

'FOR' 

0257 

84A9 

DB 

FOR SHR 8 + 128,FOR AND 255 

0259 

494E505554 

DB 

'INPUT' 

025E 

8572 

DB 

INPUT SHR 8 + 128,INPUT AND 255 

0260 

5052494E54 

DB 

'PRINT' 

0265 

8438 

DB 

PRINT SHR 8 + 128,PRINT AND 255 

0267 

53544F50 

DB 

'STOP' 

026B 

830F 

DB 

STOP SHR 8 + 128,STOP AND 255 

026D 

85C2 

DB 

DEFLT SHR 8 + 128,DEFLT AND 255 

026F 

594F552043 

DB 

'YOU CAN ADD MORE'?COMMANDS BUT 
i REMEMBER TO MOVE DEFAULT DOWN. 

027F 

= TAB4 

EGU 

* fFUNCTIONS 

027F 

524E44 

DB 

'RND' 

0282 

86C7 

DB 

RND SHR 8 + 128,RND AND 255 

0284 

494E50 

DB 

'INP' 

0287 

8738 

DB 

INP SHR 8 + 128,INP AND 255 

0289 

5045454B 

DB 

'PEEK' 

028D 

8757 

DB 

PEEK SHR 8 + 128,PEEK AND 255 

028F 

555352 

DB 

'USR' 

0292 

8761 

DB 

USR SHR 8 + 128,USR AND 255 

0294 

414253 

DB 

'ABS' 

0297 

86F2 

DB 

ABS SHR 8 + 128,ABS AND 255 
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029? 

53495A45 


DB 

'SIZE' 


029D 

B6FE 


DB 

SIZE SHR 

8 + 128.SIZE AND 255 

029F 

86 AD 


DB 

XP40 SHR 

8 + 128. XP40 AND 255 

02A1 

5V4F552043 

DB 

'YOU CAN 

ADD MORE '* FUNCTIONS BUT REMEMBER 






) TO MOVE XP40 DOWN 

02B1 

a 

TABS 

EQU 

$ 

» * TO’ IN •FOR* 

02B1 

544F 


DB 

'TO' 


02B3 

84B9 


DB 

FR1 SHR : 

B + 128 r FR1 AND 255 

02B5 

87E0 


DB 

QWHAT SHR 8 + 128. QWHAT AND 255 

02B7 

S3 

TAB6 

EQU 

t 

f'STEP* IN * FOR' 

02B7 

53544550 


DB 

'STEP' 


02BB 

8403 


DB 

FR2 SHR 

8 + 128 r FR2 AND 255 

02BD 

8407 


DB 

FR3 SHR 

8 + 128rFR3 AND 255 

02BF 

= 

TAB8 

EQU 

f 

fRELATION OPERATORS 

02BF 

3E3D 


DB 



02C1 

S5D8 


DB 

XP11 SHR 

8 + 128 r XP11 AND 255 

02C3 

23 


DB 



02C4 

85DE 


DB 

XP12 SHR 

8 + 128.XP12 AND 255 

02CA 

3E 


DB 

' >' 


02C7 

85E4 


DB 

XP13 SHR 

8 + 128» XP13 AND 255 

02C9 

3D 


DB 

' = ' 


02CA 

85F3 


DB 

XP15 SHR 

8 + 128 r XP15 AND 255 

02CC 

3C3D 


DB 

'<=' 


02CE 

85EB 


DB 

XP14 SHR 

8 + 128 » XP14 AND 255 

02D0 

30 


DB 



02D1 

85F9 


DB 

XP16 SHR 

8 + 128 » XP16 AND 255 

02D3 

85FF 


DB 

XP17 SHR 

8 + 128 * XP17 AND 255 

02D5 

21F801 

DIRECT 

LXI 

H . TAB1-1 

»*** DIRECT *** 

02D8 

= 

EXEC 

EQU 

» 

»*** EXEC *** 

02D8 

EF 

EXO 

RST 

5 

» IGNORE LEADING BLANKS 

02D9 

D5 


PUSH 

D 

i SAVE POINTER 

02DA 

1A 

EX1 

LDAX 

D 

* IFF FOUND '♦' IN STRING 

02DB 

13 


INX 

D 

f BEFORE ANY MISMATCH 

02DC 

FE2E 


CPI 

56Q 

fWE DECLARE A MATCH 

02DE 

CAF702 


JZ 

EX3 


02E1 

23 


INX 

H 

) HL->TABLE 

02E2 

BE 


CMP 

M 

?IFF MATCH t TEST NEXT 

02E3 

CADA02 


JZ 

EX1 


02E6 

3E7F 


MVI 

A . 177Q 

fELSE f SEE IFF BIT 7 

02E8 

IB 


DCX 

D 

i OF TABLEIS SET r WHICH 

02E9 

BE 


CMP 

M 

5IS THE JUMP ADDR. (HI) 

02EA 

DAFE02 


JC 

EX5 

?C:YES» MATCHED 

02ED 

23 

EX2 

INX 

H 

? NC : NO t FIND JUMP ADDR. 

02EE 

BE 


CMP 

M 


02EF 

D2ED02 


JNC 

EX2 


02F2 

23 


INX 

H 

r BUMP TO NEXT TAB. ITEM 

02F3 

D1 


POP 

D 

JRESTORE STRING POINTER 

02F 4 

C3D802 


JMP 

EXO 

i TEST AGAINST NEXT ITEM 

02F7 

3E7F 

EX3 

MVI 

A » 177Q 

» PARTIAL MATCH. FIND 

02F9 

23 

EX4 

INX 

H 

) JUMP ADDR » » WHICH IS 

02FA 

BE 


CMP 

M 

$ FLAGGED BY BIT 7 

02FB 

D2F902 


JNC 

EX4 


02FE 

7E 

EX5 

MOV 

ArM 

.LOAD HL WITH THE JUMP 

02FF 

23 


INX 

H 

? ADDRESS FROM THE TABLE 

0300 

6E 


MOV 

L » M 


0301 

E67F 


ANI 

1 770 

fMASK OFF BIT 7 

0303 

67 


MOV 

H.A 


0304 

FI 


POP 

PSW 

) CLEAN UP THE GABAGE 

0305 

E9 

: * 

PCHL 


5AND WE GO DO IT 



;************************************************************** 



f* WHAT FOLLOWS IS THE CODE TO'EXECUTE DIRECT AND STATEMENT 



f* COMMANDS. 

CONTROL IS 

TRANSFERED TO THESE POINTS VIA THE 



i* COMMAND TABLE LOOKUP 

CODE OF 'DIRECT' AND 'EXEC' IN LAST 



f* SECTION. AFTER THE COMMAND IS EXECUTED* CONTROL IS 



»* TANSFERED 

: * 

TO OTHER SECTIONS AS FOLLOWS 5 



f* FOR 

'LIST' 

» 'NEW'. AND 'STOP': GO BACK TO 'RSTART' 



r* FOR 

'RUN': 

GO EXECUTE 

THE FIRST STORED LINE IFF ANY » ELSE 



»* go ; 

BACK TO 

'RSTART' . 




;* FOR 

'GOTO' 

AND 'GOSUB 

': GO EXECUTE THE TARGET LINE. 



»* FOR 

'RETURN' AND 'NEXT' l GO BACK TO SAVED RETURN LINE. 



>* FOR 

ALL OTHERS! IFF ' 

CURRNT ' -> Or GO TO 'RSTART'. ELSE 



i* GO 1 

EXECUTE 

NEXT COMMAND. (THIS IS DONE IN 'FINISH'.) 



;************************************************************** 



;* *** 
»* 

NEW *** STOP #*# 

RUN (£ FRIENDS) *** £ GOTO *** 
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;* 'NEW(CR)' SETS 'TXTUNF' TO POINT TO 'TXTBGN' 
it 

it 'STOP<CR>' GOES BACK TO 'RSTART' 
it 

r* 'RUN(CR)' FINDS THE FIRST STORED LINE* STORE ITS ADDRESS (IN 
it 'CURRNT')* AND START EXECUTE IT. NOTE THAT ONLY THOSE 
it COMMANDS IN TAB2 ARE LEGAL FOR STORED PROGRAM. 

;* 

i* THERE ARE 3 MORE ENTRIES IN 'RUN'* 

i* 'RUNNXL' FINDS NEXT LINE r STORES ITS ADDR. AND EXECUTES IT. 

it 'RUNTSL" STORES THE ADDRESS OF THIS LINE AND EXECUTES IT. 

it 'RUNSML' CONTINUES THE EXECUTION ON SAME LINE.?* 

it 'GOTO EXPR< CR) 7 EVALUATES THE EXPRESSIONr FIND THE TARGET 

»* LINE t AND JUMP TO 'RUNTSL' TO DO IT. 

t* 'DLOAD' LOADS A NAMED PROGRAM FROM DISK. 

it 'DSAVE' SAVES A NAMED PROGRAM ON DISK. 

J* 'FCBSET' SETS UP THE FILE CONTROL BLOCK FOR SUBSEQUENT DISK I/O 
it 


0306 

CDDC07 

NEW 

CALL 

ENDCHK 

ittt NEU(CR) *** 

030? 

21D70? 


LXI 

HfTXTBGN 


030C 

22D50? 


SHLD 

TXTUNF 


030F 

CDDC07 

STOP 

CALL 

ENDCHK 

ittt STOP(CR) *** 

0312 

C38101 


JMP 

RSTART 


0315 

CDDC07 

RUN 

CALL 

ENDCHK 

ittt RUN(CR) *** 

0318 

11D70? 


LXI 

DfTXTBGN 

fFIRST SAVED LINE 

031B 

210000 

RUNNXL 

LXI 

HrO 

ittt RUNNXL *** 

031E 

CD5F08 


CALL 

FNDLNP 

fFIND WHATEVER LINE * 

0321 

DA8101 


JC 

RSTART 

fCJPASSED TXTUNFf QUIT 

0324 

EB 

RUNTSL 

XCHG 


ittt RUNTSL *** 

0325 

22C10? 


SHLD 

CURRNT 

fSET 'CURRNT'->LINE * 

0328 

EB 


XCHG 



032? 

13 


INX 

D 

i BUMP PASS LINE * 

032A 

13 


INX 

D 


032B 

CD850? 

RUNSML 

CALL 

CHKIO 

»*** RUNSML *** 

032E 

211?02 


LXI 

H f T AB2-1 

JFIND COMMAND IN TAB2 

0331 

C3D802 


JMP 

EXEC 

5AND EXECUTE IT 

0334 

DF 

GOTO 

RST 

3 

f*** GOTO EXPR *** 

0335 

D5 


PUSH 

D 

5SAVE FOR ERROR ROUTINE 

0336 

CDDC07 


CALL 

ENDCHK 

fMUST FIND A odh 

033? 

CD5708 


CALL 

FNDLN 

fFIND the target line 

033C 

C26701 


JNZ 

AHOW 

fNQ such line * 

033F 

FI 


POP 

PSW 

i CLEAR THE ‘PUSH DE 1 

0340 

C32403 


JMP 

RUNTSL 

fGO do it 

0005 

* 

CPM 

EQU 

5 i 

;disk parameters 

005C 

= 

FCB 

EQU 

5CH 


001A 

= 

SETDMA 

EQU 

26 


OOOF 

= 

OPEN 

EQU 

15 


0014 

= 

READD 

EQU 

20 


0015 

ss 

URITED 

EQU 

21 


0010 

= 

CLOSE 

EQU 

16 


0016 

= 

MAKE 

EQU 

22 


0013 

* 

DELETE 

EQU 

1? 


0343 

EF 

DLOAD 

RST 

5 

; IGNORE BLANKS 

0344 

E5 


PUSH 

H 

rSAVE H 

0345 

CDE503 


CALL 

FCBSET 

»SET UP FILE CONTROL BLOCK 

0348 

D5 


PUSH 

D 

ISAVE THE REST 

034? 

C5 


PUSH 

B 


034A 

115C00 


LXI 

DfFCB 

'GET FCB ADDRESS 

034D 

OEOF 


MVI 

CfOPEN 

SPREPARE TO OPEN FILE 

034F 

CD0500 


CALL 

CPM 

'OPEN IT 

0352 

FEFF 


CPI 

0FFH 

»IS IT THERE? 

0354 

CA6601 


JZ 

QHOW 

iNOf SEND ERROR 

0357 

AF 


XRA 

A 

'CLEAR A 

0358 

327C00 


STA 

FCB+32 

1 START AT RECORD 0 

035B 

11D50? 


LXI 

D»TXTUNF 

f GET BEGINNING 

035E 

D5 

LOAD 

PUSH 

D 

•SAVE DMA ADDRESS 

035F 

0E1A 


MVI 

CfSETDMA 


0361 

CD0500 


CALL 

CPM 

SET DMA ADDRESS 

0364 

0E14 


MVI 

CfREADD 


0366 

115C00 


LXI 

DfFCB 


036? 

CD0500 


CALL 

CPM 

READ SECTOR 

036C 

FE01 


CPI 

1 

; DONE? 

036E 

DA8103 


JC 

RDMORE 

•NOf READ MORE 

0371 

C26601 


JNZ 

QHOW 

•BAD READ 
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037-4 

0E10 


MVI 

C,CLOSE 


0376 

115C00 


LXI 

DrFCB 


0379 

CD0500 


CALL 

CPM 

rCLOSE FILE 

037C 

D1 


POP 

0 

; THROW AWAY DMA ADO. 

037D 

Cl 


POP 

B 

rGET OLD REGISTERS BACK 

037E 

D1 


POP 

0 


037F 

El 


POP 

H 


0380 

F7 


RST 

6 

rFINISH 

0381 

01 

RDMQRE 

POP 

0 

r GET DMA ADDRESS 

0382 

218000 


LXI 

Hr80H 

rGET 128 

0385 

19 


DAO 

0 

rADD 128 TO DMA ADD* 

0386 

EB 


XCHG 


rPUT IT BACK IN D 

0387 

C35E03 

r $ 

JMP 

LOAD 

r AND READ SOME MORE 

038A 

EF 

DSAVE 

RST 

5 

rIGNORE BLANKS 

038B 

E5 


PUSH 

H 

r SAVE H 

038C 

CDE503 


CALL 

FCBSET 

rSETUP FCB 

038F 

05 


PUSH 

0 


0390 

05 


PUSH 

B 

r SAVE OTHERS 

0391 

115000 


LXI 

DrFCB 


0394 

0E13 


MVI 

CrDELETE 


0396 

CD0500 


CALL 

CPM 

rERASE FILE IF IT EXISTS 

0399 

115000 


LXI 

DrFCB 


039C 

0E16 


MVI 

C r MAKE 


039E 

000500 


CALL 

CPM 

fMAKE A NEW ONE 

03A1 

FEFF 


CPI 

OFFH 

rIS THERE SPACE? 

03A3 

CA6601 


JZ 

QHQW 

r NO t ERROR 

03A6 

AF 


XRA 

A 

r CLEAR A 

03A7 

327000 


STA 

FCB+32 

rSTART AT RECORD 0 

03AA 

110509 


LXI 

DrTXTUNF 

rGET BEGINNING 

03AD 

05 

SAVE 

PUSH 

0 

f SAVE DMA ADDRESS 

03AE 

0E1A 


MVI 

CrSETDMA 

} 

03B0 

000500 


CALL 

CPM 

rSET DMA ADDRESS 

03B3 

0E15 


MVI 

CrWRITED 


03B5 

115000 


LXI 

DrFCB 


03B8 

CD0500 


CALL 

CPM 

rWRITE SECTOR 

03BB 

B7 


ORA 

A 

r SET FLAGS 

03BC 

026601 


JNZ 

GHOW 

rIF NOT ZEROr ERROR 

03BF 

01 


POP 

0 

rGET DMA ADD. BACK 

0300 

3A0609 


LOA 

TXTUNF+1 

rAND MSB OF LAST ADD. 

0303 

BA 


CMP 

D 

rIS D SMALLER? 

0304 

DA0903 


JO 

SAVDON 

r YES r DONE 

0307 

020103 


JNZ 

WRITMOR 

rDONT TEST E IF NOT EQUAL 

03CA 

3A0509 


LOA 

TXTUNF 

rIS E SMALLER? 

03CD 

BB 


CMP 

E 


03CE 

0A0903 


JC 

SAVDON 

r YES r DONE 

03D1 

218000 

WRITMOR 

LXI 

H r 80H 


03D4 

19 


DAO 

0 

rADD 128 TO DMA ADD, 

03D5 

EB 


XCHG 


rGET IT BACK IN D 

03D6 

C3A003 


JMP 

SAVE 

rWRITE SOME MORE 

03D9 

0E10 

SAVDON 

MVI 

Cr CLOSE 


03BB 

115C00 


LXI 

DrFCB 


03DE 

C00500 


CALL 

CPM 

rCLOSE FILE 

03E1 

01 


POP 

B 

rGET REGISTERS BACK 

03E2 

D1 


POP 

0 


03E3 

El 


POP 

H 


03E4 

F7 


RST 

6 

rFINISH 

03E5 

215C00 

FCBSET 

LXI 

HrFCB 

rGET FILE CONTROL BLOCK ADDRESS 

03E8 

3600 


MVI 

MrO 

rCLEAR ENTRY TYPE 

03EA 

23 

FNCLR 

INX 

H 

rNEXT LOCATION 

03EB 

3620 


MVI 

Mr ' ' 

fCLEAR TO SPACE 

03ED 

3E64 


MVI 

ArFCB+8 

AND 255 

03EF 

BO 


CMP 

L 

>DONE? 

03F0 

C2EA03 


JNZ 

FNCLR 

rNOr DO IT AGAIN 

03F3 

23 


INX 

H 

rNEXT 

03F4 

3654 


MVI 

Mr 'T' 

rSET FILE TYPE TO 'TBI' 

03F6 

23 


INX 

H 


03F7 

3642 


MVI 

Mr 'B' 


03F9 

23 


INX 

H 


03FA 

3649 


MVI 

Mr ' I ' 


03FC 

23 

EXRC 

INX 

H 

r CLEAR REST OF FCB 

03FD 

3600 


MVI 

MrO 


03FF 

3E6B 


MVI 

A r FCB+15 

AND 255 

0401 

BO 


CMP 

L 

r DONE? 

0402 

C2FC03 


JNZ 

EXRC 

fNOr CONTINUE 

0405 

215000 


LXI 

HrFCB+1 

rGET FILENAME START 

0408 

1A 

FN 

LDAX 

D 

rGET CHARACTER 

0409 

FEOD 


CPI 

ODH 

fIS IT A 'CR' 

040B 

08 


RZ 


r YES r DONE 

0400 

FE21 


CPI 

• | ' 

rLEGAL CHARACTER? 

040E 

DAE007 


JC 

QWHAT 

f NO r SEND ERROR 



TINY BASIC 


153 


0411 

FESB 


CPI 

'C ' 

.AGAIN 

0413 

D2E007 


JNC 

QWHAT 

.DITTO 

0416 

77 


MOV 

Mr A 

»SAVE IT IN FCB 

0417 

23 


I NX 

H 

{NEXT 

0418 

13 


I NX 

D 


0419 

3E6S 


MVI 

A.FCB+9 

AND 255 

04 IB 

BD 


CMP 

L 

{LAST? 

041C 

C20804 


JNZ 

FN 

i NO. CONTINUE 

041F 

C9 

ft 

RET 


»TRUNCATE AT 8 CHARACTERS 


ittttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 

ft ttt LIST ttt & PRINT *** 
it 

it LIST HAS TWO FORMSJ 

it 'LIST(CR)' LISTS ALL SAVED LINES 

it 'LIST * C CR)' START LIST AT THIS LINE * 

it YOU CAN STOP THE LISTING BY CONTROL C KEY 

it 

it PRINT COMMAND IS 'PRINT ....{' OR 'PRINT ....(CR)' 
it WHERE '....' IS A LIST OF EXPRESIONS. FORMATS. BACK- 
{* ARROWS» AND STRINGS. THESE ITEMS ARE SEPERATED BY COMMAS. 

»* 

»# A FORMAT IS A POUND SIGN FOLLOWED BY A NUMBER. IT CONTROLSS 
it THE NUMBER OF SPACES THE VALUE OF A EXPRESION IS GOING TO 
it BE PRINTED. IT STAYS EFFECTIVE FOR THE REST OF THE PRINT 
it COMMAND UNLESS CHANGED BY ANOTHER FORMAT. IFF NO FORMAT IS 
{* SPECIFIED t 6 POSITIONS WILL BE USED. 
it 

it A STRING IS QUOTED IN A PAIR OF SINGLE QUOTES OR A PAIR OF 
it DOUBLE QUOTES. 
it 

it A BACK-ARROW MEANS GENERATE A (CR) WITHOUT (LF) 
it 

it A (CRLF) IS GENERATED AFTER THE ENTIRE LIST HAS BEEN 
it PRINTED OR IFF THE LIST IS A NULL LIST. HOWEVER IFF THE LIST 
it ENDED WITH A COMMA. NO <CRL) IS GENERATED. 

{* 


0420 

CD3E01 

LIST 

CALL 

TSTNUM 

.TEST IFF THERE IS A * 

0423 

CDDC07 


CALL 

ENDCHK 

JIFF NO * WE GET A 0 

0426 

CD5708 


CALL 

FNDLN 

$FIND THIS OR NEXT LINE 

0429 

DA8101 

LSI 

JC 

RSTART 

rC{PASSED TXTUNF 

042C 

CDED08 


CALL 

PRTLN 

»PRINT THE LINE 

042F 

CD8509 


CALL 

CHKIO 

.STOP IFF HIT CONTROL-C 

0432 

CD5F08 


CALL 

FNDLNP 

{FIND NEXT LINE 

0435 

C32904 


JMP 

LSI 

{AND LOOP BACK 

0438 

0E06 

PRINT 

MVI 

C.6 

{C = # DF SPACES 

043A 

CF 


RST 

1 

{IFF NULL LIST 8 •{ ■ 

043B 

3B 


DB 

73Q 


043C 

06 


DB 

6Q 


043D 

CDOEOO 


CALL 

CRLF 

{GIVE CR-LF AND 

0440 

C32B03 


JMP 

RUNSML 

{CONTINUE SAME LINE 

0443 

CF 

PR2 

RST 

1 

{IFF NULL LIST (CR) 

0444 

OD 


DB 

ODH 


0445 

06 


DB 

6Q 


0446 

CDOEOO 


CALL 

CRLF 

{ALSO GIVE CR-LF AND 

0449 

C31B03 


JMP 

RUNNXL 

.GO TO NEXT LINE 

044C 

CF 

PRO 

RST 

1 

.ELSE IS IT FORMAT? 

04 4 D 

23 


DB 



044E 

05 


DB 

50 


044F 

DF 


RST 

3 

.YES. EVALUATE EXPR. 

0450 

4D 


MOV 

C.L 

{AND SAVE IT IN C 

0451 

C35A04 


JMP 

PR3 

.LOOK FOR MORE TO PRINT 

0454 

CD8B08 

PR1 

CALL 

QTSTG 

{OR IS IT A STRING? 

0457 

C36704 


JMP 

PR8 

{IFF NOT. MUST BE EXPR. 

045A 

CF 

PR 3 

RST 

1 

{IFF ■.’. GO FIND NEXT 

045B 

2C 


DB 

• , ' 


045C 

06 


DB 

6Q 


045D 

CDCD07 


CALL 

FIN 

{IN THE LIST. 

0460 

C34C04 


JMP 

PRO 

{LIST CONTINUES 

0463 

CDOEOO 

PR6 

CALL 

CRLF 

{LIST ENDS 

0466 

F7 


RST 

6 


0467 

DF 

PR8 

RST 

3 

{EVALUATE THE EXPR 

0468 

C5 


PUSH 

B 


0469 

CDB108 


CALL 

PRTNUM 

{PRINT THE VALUE 

046C 

Cl 


POP 

B 


046D 

C35A04 


JMP 

PR 3 

{MORE TO PRINT? 


{* 
i t 

it ttt GOSUB *** 8 RETURN ttt 
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{ * 

i* 'GOSUB EXPRf' OR 'GOSUB EXPR <CR)' IS LIKE THE 'GOTO' 

;* COMMAND» EXCEPT THAT THE CURRENT TEXT POINTER> STACK POINTER 
f* ETC. ARE SAVE SO THAT EXECUTION CAN BE CONTINUED AFTER THE 
r* SUBROUTINE 'RETURN'. IN ORDER THAT 'GOSUB' CAN BE NESTED 
it (AND EVEN RECURSIVE)» THE SAVE AREA MUST BE STACKED. 
it THE STACK POINTER IS SAVED IN 'STKGOS'. THE OLD 'STKGOS' IS 
** SAVED IN THE STACK. IFF WE ARE IN THE MAIN ROUTINEf 'STKGOS 
it IS ZERO (THIS WAS DONE BY THE "MAIN * SECTION OF THE CODE)r 
'* BUT WE STILL SAVE IT AS A FLAG FOR NO FURTHER RETURNS. 

{* 

i* 'RETURN<CR)' UNDOS EVERYHING THAT 'GOSUB' DID. AND THUS 
i* RETURN THE EXCUTION TO THE COMMAND AFTER THE MOST RECENT 
i* 'GOSUB'. IFF 'STKGOS' IS ZERO. IT INDICATES THAT WE 
»# NEVER HAD A 'GOSUB' AND IS THUS AN ERROR. 


r* 


0470 

CD3409 

GOSUB 

CALL 

PUSHA 

i SAVE THE CURRENT ’FOR 

0473 

DF 


RST 

3 

{PARAMETERS 

0474 

D5 


PUSH 

D 

{AND TEXT POINTER 

0475 

CD5708 


CALL 

FNDLN 

{FIND THE TARGET LINE 

0478 

C26701 


JNZ 

AHOW 

{NOT THERE. SAY "HOW?* 

047B 

2AC109 


LHLD 

CURRNT 

{FOUND IT. SAVE OLD 

047E 

E5 


PUSH 

H 

{'CURRNT' OLD 'STKGOS' 

047F 

2AC309 


LHLD 

STKGOS 


0482 

E5 


PUSH 

H 


0483 

210000 


LXI 

H»0 

{AND LOAD NEW ONES 

0486 

22C909 


SHLD 

LOPVAR 


0489 

39 


DAD 

SP 


048A 

22C309 


SHLD 

STKGOS 


048D 

C32403 


JMP 

RUNTSL 

{THEN RUN THAT LINE 

0490 

CDDC07 

RETURN 

CALL 

ENDCHK 

{THERE MUST BE A ODH 

0493 

2AC309 


LHLD 

STKGOS 

{OLD STACK POINTER 

0496 

7C 


MOV 

A.H 

.0 MEANS NOT EXIST 

0497 

B5 


ORA 

L 


0498 

CAE007 


JZ 

GWHAT 

i SO t WE SAY: "WHAT?" 

049B 

F9 


SPHL 


.ELSE. RESTORE IT 

049C 

El 


POP 

H 


049D 

22C309 


SHLD 

STKGOS 

{AND THE OLD STKGOS' 

O4A0 

El 


POP 

H 


04A1 

22C109 


SHLD 

CURRNT 

{AND THE OLD 'CURRNT' 

04A4 

D1 


POP 

D 

{OLD TEXT POINTER 

04A5 

CD1809 


CALL 

POPA 

{OLD ‘FOR’ PARAMETERS 

04A8 

F7 


RST 

6 

{AND WE ARE BACK HOME 


it 


itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 
{* 

»* *** FOR *** & NEXT *** 

?* 

ft 'FOR' HAS TWO FORMS: 

it 'FOR VAR=EXP1 TO EXP2 STEP EXP1' AND 'FOR VAR=EXP1 TO EXP2' 
»* THE SECOND FORM MEANS THE SAME THING AS THE FIRST FORM WITH 
it EXP1=1. (I.E.f WITH A STEP OF +1.) 

it TBI WILL FIND THE VARIABLE VAR. AND SET ITS VALUE TO THE 
it CURRENT VALUE OF EXP1. IT ALSO EVALUATES EXPR2 AND EXP1 
it AND SAVE ALL THESE TOGETHER WITH THE TEXT POINTERR ETC. IN 
»* THE 'FOR' SAVE AREA. WHICH CONSISTS OF 'LOPVAR'. 'LOPINC'. 
it ' LOF’LMT' » 'LOPLN' » AND 'LOFPT'. IFF THERE IS ALREADY SOME- 
;* THING IN THE SAVE AREA (THIS IS INDICATED BY A NON-ZERO 
»* ' LOF'VAR' ) t THEN THE OLD SAVE AREA IS SAVED IN THE STACK 
it BEFORE THE NEW ONE OVERWRITES IT. 

it TBI WILL THEN DIG IN THE STACK AND FIND OUT IFF THIS SAME 
it VARIABLE WAS USED IN ANOTHER CURRENTLY ACTIVE 'FOR' LOOP. 
it IFF THAT IS THE CASE THEN THE OLD 'FOR' LOOP IS DEACTIVATED. 
it (PURGED FROM THE STACK..) 

it 

it 'NEXT VAR' SERVES AS THE LOGICAL (NOT NECESSARILLY PHYSICAL) 
»* END OF THE 'FOR' LOOP. THE CONTROL VARIABLE VAR. IS CHECKED 
it WITH THE 'LOPVAR'. IFF THEY ARE NOT THE SAME t TBI DIGS IN 
it THE STACK TO FIND THE RIGHTT ONE AND PURGES ALL THOSE THAT 
it DID NOT MATCH. EITHER WAY, TBI THEN ADDS THE 'STEP' TO 
it THAT VARIABLE AND CHECK THE RESULT WITH THE LIMIT. IFF IT 
IS WITHIN THE LIMIT t CONTROL LOOPS BACK TO THE COMMAND 
J* FOLLOWING THE 'FOR'. IFF OUTSIDE THE LIMIT. THE SAVE ARER 
it IS PURGED AND EXECUTION CONTINUES. 


04A9 

CD3409 

{* 

FOR 

CALL 

PUSHA 

{SAVE THE OLD SAVE AREA 

04AC 

CDBA07 


CALL 

SETVAL 

{SET THE CONTROL VAR. 

04AF 

2B 


DCX 

H 

{HL IS ITS ADDRESS 

04B0 

22C909 


SHLD 

LOPVAR 

{SAVE THAT 

04B3 

21B002 


LXI 

H t TAB5-1 

{USE 'EXEC' TO LOOK 

04B6 

C3D802 


JMP 

EXEC i 

IFOR THE WORD 'TO' 

04B9 

DF 

FR1 

RST 

3 i 

{EVALUATE THE LIMIT 
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04BA 

22CH09 


SHLD 

LOPLMT 

fSAOE THAT 

04BD 

21B602 


LXI 

Hr TAB6-1 

rUSE 'EXEC 7 TO LOOK 

04C0 

C3D802 


JMF' 

EXEC 

f FOR THE WORD 7 STEP 7 

04C3 

DF 

FR2 

RST 

3 

fFOUND ITr GET STEP 

04C4 

C3CA04 


JhP 

FR4 


04C7 

210100 

FR3 

LXI 

HrlQ 

rNOT FOUNDr SET TO 1 

04CA 

22CB09 

FR4 

SHLD 

LOPINC 

► SAOE THAT TOO 

04CD 

2AC109 

FR5 

LHLD 

CURRNT 

rSAOE CURRENT LINE # 

04D0 

22CF09 


SHLD 

LOPLN 


04D3 

EB 


XCHG 


rAND TEXT POINTER 

04D4 

220109 


SHLD 

LOPPT 


04D7 

010A00 


LXI 

Br 12Q 

rDIG INTO STACK TO 

04 D A 

2AC909 


LHLD 

LOPOAR 

r FIND 'LOPOAR 7 

04DD 

EB 


XCHG 



04DE 

60 


MOO 

H t B 


04DF 

68 


MOO 

LrB 

;hl=o now 

04E0 

39 


DAD 

SP 

rHERE IS THE STACK 

04E1 

3E 


DB 

760 


04E2 

09 

FR7 

DAD 

B 

fEACH LEOEL IS 10 DEEP 

04E3 

7E 


MOO 

A»M 

rGET THAT OLD 'LOPOAR 7 

04E4 

23 


INX 

H 


04E5 

B6 


ORA 

M 


04E6 

CA0305 


JZ 

FR8 

rO SAYS NO MORE IN IT 

04E9 

7E 


MOO 

A r M 


04EA 

2B 


DCX 

H 


04EB 

BA 


CMP 

D 

rSAME AS THIS ONE? 

04EC 

C2E204 


JNZ 

FR7 


04EF 

7E 


MOO 

ArM 

r THE OTHER HALF? 

04F0 

BB 


CMP 

E 


04F1 

C2E204 


JNZ 

FR7 


04F 4 

EB 


XCHG 


r YES r FOUND ONE 

04F5 

210000 


LXI 

HrO 


04F8 

39 


DAD 

SP 

f TRY TO MOOE SP 

04F9 

44 


MOO 

BrH 


04FA 

4D 


MOO 

CrL 


04FB 

210A00 


LXI 

Hr 120 


04FE 

19 


DAD 

D 


04FF 

CP0909 


CALL 

MODOWN 

rAND PURGE 10 WORDS 

0502 

F9 


SPHL 


rIN THE STACK 

0503 

2AD109 

FR8 

LHLD 

LOPPT 

r JOB DONEr RESTORE DE 

0506 

EB 


XCHG 



0507 

F7 


RST 

6 

rAND CONTINUE 

0508 

FF 

NEXT 

RST 

7 

fGET ADDRESS OF OAR. 

0509 

DAE007 


JC 

QWHAT 

;nq oariable r •what? 1 

050G 

22C509 


SHLD 

OARNXT 

r YES r SAOE IT 

050F 

D5 

NXO 

PUSH 

D 

r SAOE TEXT POINTER 

0510 

EB 


XCHG 



0511 

2AC909 


LHLD 

LOPOAR 

rGET OAR. IN 'FOR 7 

0514 

7C 


MOO 

ArH 


0515 

B5 


ORA 

L 

rO SAYS NEOER HAD ONE 

0516 

CAE107 


JZ 

AWHAT 

rSO WE ASK: ’WHAT? 1 

0519 

E7 


RST 

4 

fELSE WE CHECK THEM 

051A 

CA2705 


JZ 

NX3 

fOKr THEY AGREE 

05 ID 

D1 


POP 

D 

fNOr LET'S SEE 

051E 

CD1809 


CALL 

POPA 

rPURGE CURRENT LOOP 

0521 

2AC509 


LHLD 

OARNXT 

rAND POP ONE LEOEL 

0524 

C30F05 


JMP 

NXO 

fGO CHECK AGAIN 

0527 

5E 

NX3 

MOO 

E t M 

f COME HERE WHEN AGREED 

0528 

23 


INX 

H 


0529 

56 


MOO 

DrM 

rDEVALUE OF OAR. 

052A 

2ACB09 


LHLD 

LOPINC 


052D 

E5 


PUSH 

H 


052E 

19 


DAD 

D 

rADD ONE STEP 

052F 

EB 


XCHG 



0530 

2AC909 


LHLD 

LOPOAR 

rPUT IT BACK 

0533 

73 


MOO 

Mr E 


0534 

23 


INX 

H 


0535 

72 


MOO 

MrD 


0536 

2ACD09 


LHLD 

LOPLMT 

rHL->LIMIT 

0539 

FI 


POP 

PSW 

rOLD HL 

053A 

B7 


ORA 

A 


053B 

F23F05 


JP 

NX1 

f STEP > 0 

053E 

EB 


XCHG 



053F 

CDB207 

NX1 

CALL 

CKHLDE 

fCOMPARE WITH LIMIT 

0542 

D1 


POP 

D 

fRESTORE TEXT POINTER 

0543 

DA5105 


JC 

NX2 

rOUTSIDE LIMIT 

0546 

2ACF09 


LHLD 

LOPLN 

» WITHIN LIMIT r GO 

0549 

22C109 


SHLD 

CURRNT 

r BACK TO THE SAOED 

054C 

2AD109 


LHLD 

LOPPT 

f'CURRNT 7 AND TEXT 

054F 

EB 


XCHG 


fPOINTER 

0550 

F7 


RST 

6 
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0551 

CD1809 

NX2 

CALL 

POPA 

fPURGE THIS LOOP 

0554 

F 7 

F# 

RST 

6 



i**t************tt*******ttt**********tt*****t**t*************t 

f* 

?* *** REM *** IFF *#* INPUT *** & LET <* DEFLT) *** 
i* 

i* 'REM' CAN BE FOLLOWED BY ANYTHING AND IS IGNORED BY TBI. 
f* TBI TREATS IT LIKE AN 'IF' WITH A FALSE CONDITION. 

;* 

f* 'IF' IS FOLLOWED BY AN EXPR. AS A CONDITION AND ONE OR MORE 
f* COMMANDS (INCLUDING OUTHER 'IP'S) SEPERATED BY SEMI-COLONS. 
f* NOTE THAT THE WORD 'THEN' IS NOT USED. TBI EVALUATES THE 
f* EXPR. IFF IT IS NON-ZEROf EXECUTION CONTINUES. IFF THE 
i* EXPR. IS ZEROf THE COMMANDS THAT FOLLOWS ARE IGNORED AND 
f* EXECUTION CONTINUES AT THE NEXT LINE. 

F* 

f* 'IPUT' COMMAND IS LIKE THE 'PRINT' COMMANDr AND IS FOLLOWED 
f* BY A LIST OF ITEMS. IFF THE ITEM IS A STRING IN SINGLE OR 
f* DOUBLE QUOTESf OR IS A BACK-ARROWf IT HAS THE SAME EFFECT AS 
J* IN 'PRINT', IFF AN ITEM IS A VARIABLEf THIS VARIABLE NAME IS 
f* PRINTED OUT FOLLOWED BY A COLON. THEN TBI WAITS FOR AN 
f* EXPR. TO BE TYPED IN. THE VARIABLE ISS THEN SET TO THE 
f* VALUE OF THIS EXPR. IFF THE VARIABLE IS PROCEDED BY A STRING 
;* (AGAIN IN SINGLE OR DOUBLE QUOTES)f THE STRING WILL BE 
J* PRINTED FOLLOWED BY A COLON. TBI THEN WAITS FOR INPUT EXPR. 

AND SET THE VARIABLE TO THE VALUE OF THE EXPR. 
i* 

i* IFF THE INPUT EXPR, IS INVALIDf TBI WILL PRINT ■WHAT?*f 
f* ‘HOW?’ OR * SORRY * AND REPRINT THE PROMPT AND REDO THE INPUT. 
f* THE EXECUTION WILL NOT TERMINATE UNLESS YOU TYPE CONTROL-C. 
f* THIS IS HANDLED IN 'INPERR' . 

F* 

f* 'LET' IS FOLLOWED BY A LIST OF ITEMS SEPERATED BY COMMAS. 
f* EACH ITEM CONSISTS OF A VARIABLEf AN EQUAL SIGNf AND AN EXPR. 
f* TBI EVALUATES THE EXPR. AND SET THE VARIBLE TO THAT VALUE. 
f* TB WILL ALSO HANDLE 'LET' COMMAND WITHOUT THE WORD 'LET'. 
f* THIS IS DONE BY 'DEFLT'. 

F* 


0555 

210000 

REM 

LX I 

HfOG 

f*** REM **# 

0558 

3E 

F 4 

DB 

76Q 


0559 

DF 

IFF 

RST 

3 

?***'IFF *** 

OSSA 

7C 


MOV 

AfH 

flS THE EXPR.=0? 

055B 

B5 


ORA 

L 


055C 

C22B03 


JNZ 

RUNSML 

i NO f CONTINUE 

055F 

CD7508 


CALL 

FNDSKP 

f YES f SKIP REST OF LINE 

0562 

D22403 


JNC 

RUNTSL 


0565 

C38101 


JMP 

RSTART 


0568 

2AC709 

INPERR 

LHLD 

STKINP 

f*** INPERR *** 

056B 

F9 


SPHL 


f RESTORE OLD SP 

056C 

El 


POP 

H 

fAND OLD 'CURRNT' 

056D 

22C109 


SHLD 

CURRNT 


0570 

D1 


POP 

D 

fAND OLD TEXT POINTER 

0571 

D1 


POP 

D 

fREDD INPUT 

0572 

= 

INPUT 

EQU 

» 

f*** INPUT *** 

0572 

D5 

IP1 

PUSH 

D 

fSAVE IN CASE OF ERROR 

0573 

CD8B08 


CALL 

QTSTG 

fIS NEXT ITEM A STRING? 

0576 

C38005 


JMP 

IP2 

f NO 

0579 

FF 


RST 

7 

fYES. BUT FOLLOWED BY A 

057A 

DABA05 


JC 

IP4 

fVARIABLE? NO. 

057D 

C39005 


JMP 

IP3 

fYES. INPUT VARIABLE 

0580 

D5 

IP2 

PUSH 

D 

f SAVE FOR 'PRTSTG' 

0581 

FF 


RST 

7 

fMUST BE VARIABLE NOW 

0582 

DAE007 


JC 

QWHAT 

f * WHAT? * IT IS NOT? 

0585 

1A 


LDAX 

D 

fGET READY FOR 'RTSTG' 

0586 

4F 


MOV 

C f A 


0587 

97 


SUB 

A 


0588 

12 


STAX 

D 


0589 

D1 


POP 

D 


058A 

CD7F08 


CALL 

PRTSTG 

f PRINT STRING AS PROMPT 

058D 

79 


MOV 

AfC 

fRESTORE TEXT 

058E 

IB 


DCX 

D 


058F 

12 


STAX 

D 


0590 

D5 

IF'3 

PUSH 

D 

f SAVE IN CASE OF ERROR 

0591 

EB 


XCHG 



0592 

2AC109 


LHLD 

CURRNT 

fALSO SAVE 'CURRNT' 

0595 

E5 


PUSH 

H 


0596 

217205 


LXI 

HfIPI 

fA NEGATIVE NUMBER 

0599 

22C109 


SHLD 

CURRNT 

fAS A FLAG 
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059C 

210000 


LXI 

HtOG 

fSAVE SP TOO 

059F 

39 


DAD 

SP 


OSAO 

22C709 


SHLD 

STKINP 


05A3 

D5 


PUSH 

D 

i OLD HL 

05A4 

3E3A 


MVI 

A» 72Q 

»PRINT THIS TOO 

05A6 

CD1408 


CALL 

GETLN 

fAND GET A LINE 

05A9 

11370F 

IP3A 

LXI 

DfBUFFER 

rPOINTS TO BUFFER 

05AC 

DF 


RST 

3 

i EVALUATE INPUT 

05AD 

00 


NOP 


?CAN BE 'CALL ENDCHK 

05AE 

00 


NOP 



05AF 

00 


NOP 



05B0 

D1 


POP 

D 

»OKf GET OLD HL 

05B1 

EB 


XCHG 



05B2 

73 


MOV 

M»E 

JSAVE VALUE IN VAR. 

05B3 

23 


INX 

H 


05B4 

72 


MOV 

M»D 


05B5 

El 


POP 

H 

fGET OLD 'CURRNT' 

05B6 

22C109 


SHLD 

CURRNT 


05B9 

D1 


POP 

D 

?AND OLD TEXT POINTER 

05BA 

FI 

IP4 

POP 

PSW 

fPURGE JUNK IN STACK 

OSBB 

CF 


RST 

1 

rIS NEXT CH. 'f'? 

05BC 

2C 


DB 

' f ' 


05BD 

03 


DB 

30 


05BE 

C37205 


JMP 

IP1 

i YESf MORE ITEMS. 

05C1 

F7 

IPS 

RST 

6 


05C2 

1A 

DEFLT 

LDAX 

D 

?*** DEFLT *** 

05C3 

FEOD 


CPI 

0DH 

i EMPTY LINE IS OK 

05C5 

CAD105 


JZ 

LT1 

fELSE IT IS 'LET' 

05C8 

CDBA07 

LET 

CALL 

SETVAL 

ittt LET *** 

05CB 

CF 


RST 

1 

fSET VALUE TO VAR. 

05CC 

2C 


DB 

' f ' 


05CD 

03 


DB 

30 


OSCE 

C3C805 


JMP 

LET 

fITEM BY ITEM 

05D1 

F7 

LT1 

RST 

6 

JUNTIL FINISH 


it 

itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 

it ttt EXPR *** 
r* 

it ' EXPR' EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS. 
it <EXPR>:J=<EXPR2> 


it <EXPR2XREL«OP • ><EXPR2> 

it WHERE <REL•OP.> IS ONE OF THE OPERATORSS IN TAB8 AND THE 

it RESULT OF THESE OPERATIONS IS 1 IFF TRUE AND 0 IFF FALSE. 

it <EXPR2>; : = <+ OR -XEXPR3X + OR -<EXPR3>)( . . . . ) 

it WHERE () ARE OPTIONAL AND <....) ARE OPTIONAL REPEATS. 

»* <EXPR3>::=<EXPR4>(<* OR /><EXPR4>)(..♦.) 
it <EXPR4>.*:=<VARIABLE> 
it <FUNCTION> 

it < <EXPR>) 

f* <EXPR> IS RECURSIVE SO THAT VARIABLE '0' CAN HAVE AN <EXPR> 
it AS INDEXf FNCTIONS CAN HAVE AN <EXPR> AS ARGUMENTS^ AND 
it <EXPR4> CAN BE AN <EXPR> IN PARANTHESE. 


it 




it 

EXPR 

CALL 

EXPR2 THIS IS AT LOC 



it 


PUSH 

HL SAVE <i 

05D2 

21BE02 

EXPRl 

LXI 

H»TAB8-1 *LOOKUP REL.OP 

05D5 

C3D802 


JMP 

EXEC 

fGO DO IT 

05D8 

CD0106 

XP11 

CALL 

XP18 

fREL.OP.■>=* 

05DB 

D8 


RC 


? NO f RETURN HL=0 

OSDC 

6F 


MOV 

Lf A 

i YESf RETURN HL=1 

05DD 

C9 


RET 



05 DE 

COO106 

XP12 

CALL 

XP18 

fREL.OP.•** 

05E1 

C8 


RZ 


i FALSEf RETURN HL=0 

05E2 

6F 


MOV 

Lf A 

f TRUE f RETURN HL = 1 

05E3 

C9 


RET 



05E4 

CD0106 

XP13 

CALL 

XP18 

fREL.OP.■>■ 

05E7 

C8 


RZ 


fFALSE 

05E8 

D8 


RC 


JALSO FALSEf HL=0 

05E9 

6 F 


MOV 

Lf A 

? TRUE f HL=1 

05EA 

C9 


RET 



05EB 

CD0106 

XP14 

CALL 

XP18 

fREL.OP.*<=* 

05EE 

6F 


MOV 

Lf A 

fSET HL=1 

05EF 

C8 


RZ 


fREL. TRUE f RETURN 

05F0 

D8 


RC 

i 


05F1 

6C 


MOV 

Lf H 

JELSE SET HL-0 

05F2 

C9 


RET 



05F3 

CD0106 

XP15 

CALL 

XP18 

fREL.OP. 

05F6 

CO 


RNZ 


f FALSE f RETRUN HL=0 

05F7 

6F 


MOV 

Lf A 

JELSE SET HL=1 


. 18 

EXPR2> VALUE 
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05F8 

C9 


RET 

05F9 

CD0106 

XP16 

CALL 

05FC 

DO 


RNC 

05FD 

6F 


MOV 

OSFE 

C9 


RET 

05FF 

El 

XP17 

POP 

0600 

C9 


RET 

0601 

79 

XP18 

MOV 

0602 

El 


POP 

0603 

Cl 


POP 

0604 

E5 


PUSH 

0605 

C5 


PUSH 

0606 

4F 


MOV 

0607 

CD1606 


CALL 

060A 

EB 


XCHG 

060B 

E3 


XTHL 

060C 

CDB207 


CALL 

060F 

D1 


POP 

0610 

210000 


LXI 

0613 

3E01 


MVI 

0615 

C9 

F* 

RET 

0616 

CF 

EXPR2 

RST 

0617 

2D 


DB 

0618 

06 


DB 

0619 

210000 


LXI 

061C 

C34006 


JMP 

061F 

CF 

XP21 

RST 

0620 

2B 


DB 

0621 

00 


DB 

0622 

CD4A06 

XP22 

CALL 

0625 

CF 

XP23 

RST 

0626 

2B 


DB 

0627 

15 


DB 

0628 

E5 


PUSH 

0629 

CD4A06 


CALL 

062C 

EB 

XP24 

XCHG 

062D 

E3 


XTHL 

062E 

7C 


MOV 

062F 

AA 


XRA 

0630 

7A 


MOV 

0631 

19 


DAD 

0632 

D1 


POP 

0633 

FA2506 


JM 

0636 

AC 


XRA 

0637 

F22506 


JP 

063A 

C36601 


JMP 

063D 

CF 

XP25 

RST 

063E 

2D 


DB 

063F 

83 


DB 

0640 

E5 

XP26 

PUSH 

0641 

CD4A06 


CALL 

0644 

CDA607 


CALL 

0647 

C32C06 

F* 

JMP 

064A 

CDA706 

EXPR3 

CALL 

064D 

CF 

XP31 

RST 

064E 

2A 


DB 

064F 

2C 


DB 

0650 

E5 


PUSH 

0651 

CDA706 


CALL 

0654 

0600 


MVI 

0656 

CDA307 


CALL 

0659 

EB 


XCHG 

065A 

E3 


XTHL 

065B 

CDA307 


CALL 

065E 

7C 


MOV 

065F 

B7 


ORA 

0660 

CA6906 


JZ 

0663 

7A 


MOV 

0664 

B2 


ORA 

0665 

EB 


XCHG 

0666 

C26701 


JNZ 

0669 

7D 

XP32 

MOV 

066A 

210000 


LXI 

066D 

B7 


ORA 

066E 

CA9906 


JZ 

0671 

19 

XP33 

DAD 

0672 

DA6701 


JC 

0675 

3D 


DCR 

0676 

C27106 


JNZ 

0679 

C39906 


JMP 


XP18 fREL.OP. ■<■ 

fFALSEf RETURN HL=0 
L f A fELSE SET HL=1 

H i NOT REL.OP« 

i RETURN HL=<EXPR2> 

AfC i SUBROUTINE FOR ALL 

H fREL.OP.'S 

B 

H i REVERSE TOP OF STACK 

B 

CfA 

EXPR2 fGET 2ND <EXPR2> 

* VALUE IN DE NOW 
f 1ST <EXPR2> IN HL 
CKHLDE i COMPARE 1ST WITH 2ND 
D ;RESTORE TEXT POINTER 

HfOQ i SET HL = Of A=1 
At 1 


1 i NEGATIVE SIGN? 

60 

H t OQ fYES f FAKE '0-' 

XP26 rTREAT LIKE SUBTRACT 

1 fPOSITIVE SIGN? IGNORE 

' + ' 

OQ 

EXPR3 f1ST <EXPR3> 

1 fADD? 

' + ' 

25Q 

H fYESf SAVE VALUE 

EXPR3 fGET 2ND<EXPR3> 

f2ND IN DE 
f 1ST IN HL 

AfH f COMPARE SIGN 

D 

AfD 

D 

D fRESTORE TEXT POINTER 

XP23 #1ST 2ND SIGN DIFFER 

H ilST 2ND SIGN EQUAL 

XP23 JSO ISP RESULT 

QHOW fELSE WE HAVE OVERFLOW 

1 fSUBTRACT? 

203Q 

H f YES f SAVE 1ST <EXPR3> 

EXPR3 fGET 2ND <EXPR3> 

CHGSGN fNEGATE 
XP24 JAND ADD THEM 

EXPR4 fGET 1ST <EXPR4> 

1 fMULTIPLY? 

54Q 

H fYESf SAVE 1ST 

EXPR4 fAND GET 2ND <EXPR4> 

BfOQ fCLEAR B FOR SIGN 

CHKSGN fCHECK SIGN 

f2ND IN DE NOW 
fIST IN HL 

CHKSGN fCHECK SIGN OF 1ST 
AfH fIS HL > 255 ? 

A 

XP32 *N0 

AfD f YESf HOW ABOUT DE 

D 

fPUT SMALLER IN HL 
AHOW fALSO >f WILL OVERFLOW 

AfL fTHIS IS DUMB 

HfOQ fCLEAR RESULT 
A fADD AND COUNT 

XP35 
D 

AHOW fOVERFLOW 

A 

XP33 
XP35 


fFINISHED 
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067C 

CF 

XP34 

RST 

1 

pDIVIDE? 

067D 

2F 


DB 

'/' 


067E 

44 


DB 

104Q 


067F 

E5 


PUSH 

H 

f YES r SAOE 1ST <EXPR4> 

0680 

CDA706 


CALL 

EXPR4 

pAND GET 2ND ONE 

0683 

0600 


MVI 

B r 00 

pCLEAR B FOR SIGN 

0685 

CDA307 


CALL 

CHKSGN 

pCHECK SIGN OF 2ND 

0688 

EB 


XCHG 


pF'UT 2ND IN DE 

0689 

E3 


XTHL 


pGET 1ST IN HL 

068A 

CDA307 


CALL 

CHKSGN 

p CHECK SIGN OF 1ST 

068D 

7A 


MOO 

ApD 

pDIVIDE BY 0? 

068E 

B3 


ORA 

E 


068F 

CA6701 


JZ 

AHOW 

pSAY 'HOW?' 

0692 

C5 


PUSH 

B 

pELSE SAOE SIGN 

0693 

CD8607 


CALL 

DIOIDE 

pUSE SUBROUTINE 

0696 

60 


MOO 

HpB 

pRESULT IN HL NOW 

0697 

69 


MOO 

LrC 


0698 

Cl 


POP 

B 

pGET SIGN BACK 

0699 

01 

XP35 

POP 

D 

pAND TEXT POINTER 

069A 

7C 


MOO 

A»H 

pHL MUST BE + 

0698 

B7 


ORA 

A 


069C 

FA6601 


JM 

QHOW 

pELSE IT IS OOERFLOW 

069F 

78 


MOO 

A»B 


06AO 

B7 


ORA 

A 


06A1 

FCA607 


CM 

CHGSGN 

pCHANGE SIGN IFF NEEDED 

06A4 

C34D06 


JMP 

XP31 

pLOOK OR MORE TERMS 

06A7 

217E02 

EXPR4 

LXI 

Hr TAB4-1 

pFIND FUNCTION IN TAB4 

06AA 

C3D802 


JMP 

EXEC 

pAND GO DO IT 

06 AD 

FF 

XP40 

RST 

7 

pNOp NOT A FUNCTION 

06AE 

DAB606 


JC 

XP41 

pNOR a OARIable 

06B1 

7E 


MOO 

A r M 

pOARIABLE 

06B2 

23 


INX 

H 


06B3 

66 


MOO 

H p M 

pOALUE IN HL 

06B4 

6F 


MOO 

L p A 


06B5 

C9 


RET 



06B6 

CD3E01 

XP41 

CALL 

TSTNUM 

pQR IS IT A NUMBER 

06B9 

78 


MOO 

A p B 

p* OF DIGIT 

06BA 

B7 


ORA 

A 


06 BB 

CO 


RNZ 


iOK 

06BC 

CF 

PARN 

RST 

1 

pNQ DIGITp MUST BE 

06BD 

28 


DB 

' ( ' 


06BE 

05 


DB 

5Q 


06BF 

DF 


RST 

3 

p *(EXPR)■ 

06CO 

CF 


RST 

1 


06C1 

29 


DB 

' ) ' 


06C2 

01 


DB 

10 


06C3 

C9 

XP42 

RET 



06C4 

C3E007 

XP43 
f * 

JMP 

GWHAT 

pELSE SAYJ * WHAT?■ 

06C7 

CDBC06 

RND 

CALL 

PARN 

p*** RND(EXPR> *** 

06CA 

7C 


MOO 

AtH 

pEXPR MUST BE + 

06CB 

B7 


ORA 

A 


06CC 

FA6601 


JM 

QHOW 


06CF 

B5 


ORA 

L 

pAND NON-ZERO 

06DO 

CA6601 


JZ 

QHOW 


06D3 

05 


PUSH 

D 

pSAOE BOTH 

06H4 

E5 


PUSH 

H 


06D5 

2AD309 


LHLD 

RANPNT 

pGET MEMORY AS RANDOM 

06D8 

11B009 


LXI 

D r LSTROM 

pNUMBER 

06 DB 

E7 


RST 

4 


06DC 

DAE206 


JC 

RA1 

f WRAP AROUND IFF LAST 

06DF 

210001 


LXI 

H»START 


06E2 

5E 

RA1 

MOO 

E p M 


06E3 

23 


INX 

H 


06E4 

56 


MOO 

D»M 


06E5 

220309 


SHLD 

RANPNT 


06E8 

El 


POP 

H 


06E9 

EB 


XCHG 



06EA 

C5 


PUSH 

B 


06EB 

CD8607 


CALL 

DIOIDE 

pRND(N)=M0D<MpN)+1 

06EE 

Cl 


POP 

B 


06EF 

D1 


POP 

D 


06F0 

23 


INX 

H 


06F1 

C9 


RET 



06F2 

CDBC06 

ABS 

CALL 

PARN 

f*** ABS(EXPR) *** 

06F5 

CDA307 


CALL 

CHKSGN 

pCHECK SIGN 

06F8 

7C 


MOO 

ApH 

pNOTE THAT -32768 

06F9 

B4 


ORA 

H 

pCANNOT CHANGE SIGN 

06FA 

FA6601 


JM 

QHOW 

»so say: *HOW?‘ 

06FD 

C9 


RET 
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06FE 

2AD509 

SIZE 

LHLD 

TXTUNF 

-*** 

SIZE *** 

0701 

D5 


PUSH 

D 

-GET 

THE NUMBER OF FREE 

0702 

EB 


XCHG 


-BYTES BETWEEN 'TXTUNF' 

0703 

21000F 

SIZE A 

LXI 

Hr VARBGN 


rAND 'VARBGN' 

0706 

CD9C07 


CALL 

SUBDE 



0709 

D1 


POP 

D 



070A 

C9 


RET 





it 

ittttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 

it ttt OUT *** INP ttt WAIT *** POKE *** PEEK *** 8 USR 

it 

it OUT IrJ(rKrL) 

it 

it OUTPUTS EXPRESSION ' J' TO PORT 'I'r AND NAY BE REPEATED 

it AS IN DATA 'L' TO PORT 'K 7 AS MANY TIMES AS NEEDED 

it THIS COMMAND MODIFIES it THIS COMMAND MODIFIES 

;* THIS COMMAND MODIFY'S A SMALL SECTION OF CODE LOCATED 

it JUST ABOVE ADDRESS 2K 

it 

it INP (I) 

it 

it THIS FUNCTION RETURNS DATA READ FROM INPUT PORT 'I' AS 

J* IT'S VALUE. 

it IT ALSO MODIFIES CODE JUST ABOVE 2K. 

it 

it WAIT IrJrK 

it 

it THIS COMMAND READS THE STATUS OF PORT 'I'r EXCLUSIVE OR'S 

it THE RESULT WITH 'K' IF THERE IS ONE r OR IF NOT WITH Or 

it AND'S WITH 'J' AND RETURNS WHEN THE RESULT IS NONZERO. 

it ITS MODIFIED CODE IS ALSO ABOVE 2K. 

it 

it POKE IrJ(rKrL) 

it 

it THIS COMMAND WORKS LIKE OUT EXCEPT THAT IT PUTS DATA 'J' 

it INTO MEMORY LOCATION 'I'. 

it 

it PEEK <I> 

it 

it THIS FUNCTION WORKS LIKE INP EXCEPT IT GETS IT'S VALUE 

it FROM MEMORY LOCATION 'I'. 

i t 

it USR (I< r J)) 

it 

it USR CALLS A MACHINE LANGUAGE SUBROUTINE AT LOCATION 'I' 

it IF THE OPTIONAL PARAMETER 'J' IS USED ITS VALUE IS PASSED 

it IN H8L. THE VALUE OF THE FUNCTION SHOULD BE RETURNED IN Hll 

it 

itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 


070B 

DF 

OUTCMD 

RST 

3 

070C 

7D 


MOV 

ArL 

070D 

32B109 


STA 

OUTIO + 1 

0710 

CF 


RST 

1 

0711 

2C 


DB 

' » ' 

0712 

2F 


DB 

2FH 

0713 

DF 


RST 

3 

0714 

7D 


MOV 

ArL 

0715 

CDB009 


CALL 

OUTIO 

0718 

CF 


RST 

1 

0719 

2C 


DB 

' r ' 

071A 

03 


DB 

03H 

071B 

C30B07 


JMP 

OUTCMD 

071E 

F7 


RST 

6 

071F 

DF 

WAITCM 

RST 

3 

0720 

7D 


MOV 

ArL 

0721 

32B409 


STA 

WAITIO + 1 

0724 

CF 


RST 

1 

0725 

2C 


DB 

' f ' 

0726 

IB 


DB 

1BH 

0727 

DF 


RST 

3 

0728 

E5 


PUSH 

H 

0729 

CF 


RST 

1 

072A 

2C 


DB 

', ' 

072B 

07 


DB 

7H 

072C 

DF 


RST 

3 

072D 

7D 


MOV 

ArL 

072E 

El 


POP 

H 

072F 

67 


MOV 

Hr A 

0730 

C33207 


JMP 

* + 2 

0733 

2600 


MV I 

HrO 
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0735 

C3B309 


JMP 

WAITIQ 



0738 

CDBC04 

INP 

CALL 

PARN 



073B 

70 


MOV 

ArL 



073C 

32BC09 


STA 

INPIO + 

1 


073F 

2400 


MVI 

HrO 



0741 

C3BB09 


JMP 

INPIO 



0744 

C3E007 


JMP 

QWHAT 



0747 

DF 

POKE 

RST 

3 



0748 

E5 


PUSH 

H 



0749 

CF 


RST 

1 



074A 

2C 


DB 

' , ' 



074B 

12 


DB 

12H 



074C 

DF 


RST 

3 



074D 

7D 


MOV 

ArL 



074E 

El 


POP 

H 



074F 

77 


MOV 

M r A 



0750 

CF 


RST 

1 



0751 

2C03 


DB 

' r ' r03H 



0753 

C34707 


JMP 

POKE 



0754 

F7 


RST 4 




0757 

CDBC04 

PEEK 

CALL 

PARN 



075A 

4E 


MOV 

LrM 



075B 

2400 


MVI 

HrO 



075D 

C9 


RET 




075E 

C3E007 


JMP 

QWHAT 



0741 

C5 

USR 

PUSH 

B 



0742 

CF 


RST 

1 



0743 

281C 


DB 

'<'»2BD 

f QWHAT 


0745 

DF 


RST 

3 

rEXPR 


0744 

CF 


RST 

1 



0747 

2907 


DB 

' ) ' r7 

fPASPARM 


0749 

D5 


PUSH 

D 



074A 

118007 


LXI 

DrUSRET 



0740 

D5 


PUSH 

D 



074E 

E5 


PUSH 

H 



074F 

C9 


RET 


rCALL USR 

ROUTINE 

0770 

CF 

PASPRM 

RST 

1 



0771 

2C0E 


DB 

' t ' »14B 



0773 

E5 


PUSH 

H 



0774 

DF 


RST 

3 



0775 

CF 


RST 

1 



0774 

2909 


DB 

' ) ' r 9 



0778 

Cl 


POP 

B 



0779 

D5 


PUSH 

D 



077A 

118007 


LXI 

DrUSRET 



077D 

D5 


PUSH 

D 



077E 

C5 


PUSH 

B 



077F 

C9 


RET 


rCALL USR 

ROUTINE 

0780 

D1 

USRET 

POP 

D 



0781 

Cl 


POP 

B 



0782 

C9 


RET 




0783 

C3E007 

it 

JMP 

QWHAT 




itttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt 

it 




it 

r t 

*** DIVIDE *** SUBDE 

*** CHKSGN *** CHGSGN *** 8 CKHLDE *** 



it 

'DIVIDE' 

DIVIDES HL 1 

BY DEr RESULT IN BCr REMAINDER IN HL 



it 

'SUBDE' SUBTRACTS DE 

FROM HL 



it 

'CHKSGN' 

CHECKS SIGN 

OF HL. IFF +r NO CHANGE. IFF -r CHANGE 



it 

SIGN AND 

FLIP SIGN OF B. 



it 

it 

it 

'CHGSGN' 

CHNGES SIGN 

OF HL AND B UNCONDITIONALLY. 



'CKHLE' CHECKS SIGN OF HL AND DE. IFF DIFFERENTr HL AND DE 



it 

ARE INTERCHANGED. 

IFF SAME SIGNr NOT INTERCHANGED, EITHER 



it 

CASEr HL 

DE ARE THEN 

COMPARED TO SET THE FLAGS. 

0784 

E5 

DIVIDE PUSH 

H 

ittt DIVIDE *** 

0787 

4C 


MOV 

LrH 

rDIVIDE H BY DE 

0788 

2400 


MVI 

HrO 


078A 

CD9107 


CALL 

DV1 


078D 

41 


MOV 

BrC 

iSAVE RESULT IN B 

078E 

7D 


MOV 

ArL 

f < REMAINDER+L)/DE 

078F 

El 


POP 

H 


0790 

47 


MOV 

HrA 


0791 

OEFF 

DV1 

MVI 

C r 377Q 

t RESULT IN C 

0793 

OC 

DV2 

INR 

C 

i DUMB ROUTINE 

0794 

CD9C07 


CALL 

SUBDE 

rDIVIDE BY SUBTRACT 

0797 

D29307 


JNC 

DV2 

rAMD COUNT 
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079A 

19 


DAD 

D 


079B 

C9 


RET 



079C 

7D 

SUBDE 

MOV 

ArL 

}*** SUBDE *** 

079D 

93 


SUB 

E 

fSUBTRACT DE FROM 

079E 

6F 


MOV 

LfA 

fHL 

079F 

7 C 


MOV 

A f H 


07A0 

9A 


SBB 

D 


07A1 

67 


MOV 

HrA 


07A2 

C9 


RET 



07A3 

7C 

CHKSGN 

MOV 

A f H 

f*** CHKSGN *** 

07A4 

B7 


ORA 

A 

JCHECK SIGN OF hl 

07A5 

FO 


RP 


fIFF -f CHANGE SIGN 

07A6 

7C 

F Ifc 

CHGSGN 

MOV 

AfH 

;*** CHGSGN *** 

07A7 

2F 


CMA 


fCHANGE SIGN OF HL 

07A8 

67 


MOV 

H f A 


07A9 

7D 


MOV 

AfL 


07AA 

2F 


CMA 



07AB 

6F 


MOV 

LfA 


07AC 

23 


I NX 

H 


07AD 

78 


MOV 

A f B 

f AND ALSO FLIP B 

07AE 

EE80 


XRI 

2000 


07B0 

47 


MOV 

B f A 


07B1 

C9 


RET 



07B2 

7C 

CKHLDE 

MOV 

A f H 


07B3 

AA 


XRA 

D 

f SAME SIGN? 

07B4 

F2B807 


JP 

CK1 

f YES f COMPARE 

07B7 

EB 


XCHG 


fNOf XCH AND COMP 

07B8 

E7 

CK1 

RST 

4 


07B9 

C9 


RET 




i * 

i************************************************************** 
t* 

it tt* SETVAL *** FIN *** ENDCHK *** & ERROR (* FRIENDS) *** 
i* 

i* ‘SETVAL’ EXPECTS A VARIABLE f FOLLOWED BY AN EQUAL SIGN AND 
t* THEN AN EXPR. IT EVALUATES THE EXPR. AND SET THE VARIABLE 
f* TO THAT VALUE * 

; * 

t* 'FIN' CHECKS THE END OF A COMMAND. IFF IT ENDED WITH ’f’f 
;* EXECUTION CONTINUES. IFF IT ENDED WITH A CR f IT FINDS THE 
i* NEXT LINE AND CONTINUE FROM THERE. 

» * 

i* ‘ENDCHK’ CHECKS IFF A COMMAND IS ENDED WITH CR. THIS IS 
?* REQUIRED IN CERTAIN COMMANDS. (GOTO* RETURN* AND STOP ETC.) 
i* 

i* ‘ERROR’ PRINTS THE STRING POINTED BY DE (AND ENDS WITH CR). 
;* IT THEN PRINTS THE LINE POINTED BY 'CURRNT' WITH A 
i* INSERTED AT WHERE THE OLD TEXT POINTER (SHOULD BE ON TOP 
r* 0 THE STACK) POINTS TO. EXECUTION OF TB IS STOPPED 
i* AND TBI IS RESTARTED. HOWEVER» IFF 'CURRNT' -> ZERO 
i* (INDICATING A DIRECT COMMAND) » THE DIRECT COMMAND IS NOT 
r* PRINTED. AND IFF 'CURRNT' -> NEGATIVE • (INDICATING 'INPUT' 
it COMMAND* THE INPUT LINE IS NOT PRINTED AND EXECUTION IS 
i* NOT TERMINATED BUT CONTINUED AT 'INPERR'. 
i* 

i* RELATED TO 'ERROR' ARE THE FOLLOWING: 

i* 'QWHAT' SAVES TEXT POINTER IN STACK AND GET MESSAGE ‘WHAT?’ 
;* 'AWHAT' JUST GET MESSAGE ’WHAT?’ AND JUMP TO 'ERROR'. 
f* 'QSORRY' AND 'ASORRY' DO SAME KIND OF THING. 
f* 'QHOW' AND 'AHOW' IN THE ZERO PAGE SECTION ALSO DO THIS 

F* 


07BA 

FF 

SETVAL 

RST 

7 

r*** SETVAL *** 

07BB 

DAE007 


JC 

QWHAT 

f’WHAT?’ NO VARIABLE 

07BE 

E5 


PUSH 

H 

fSAVE ADDRESS OF VAR 

07BF 

CF 


RST 

1 

fFASS ■=’ SIGN 

07CO 

3D 


DB 

' = ' 


07C1 

08 


DB 

10Q 


07C2 

DF 


RST 

3 

fEVALUATE EXPR. 

07C3 

44 


MOV 

BfH 

fVALUE IN BC NOW 

07C4 

4D 


MOV 

CfL 


07C5 

El 


POP 

H 

f GET ADDRESS 

07C6 

71 


MOV 

MfC 

fSAVE VALUE 

07C7 

23 


INX 

H 


07C8 

70 


MOV 

MfB 


07C9 

C9 


RET 



07CA 

C3E007 

SV1 

JMP 

QWHAT 

fNO ’ = ’ SIGN 


F# 
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07CD 

CF 

FIN 

RST 

1 

;*** fin *** 

07CE 

3B 


DB 

730 


07CF 

04 


DB 

40 


07D0 

FI 


POP 

PSW 

$■*■* PURGE RET ADDR, 

07D1 

C32B03 


JMP 

RUNSML 

iCONTINUE SAME LINE 

07D4 

CF 

FI1 

RST 

1 

* NOT **•* IS IT CR? 

07D5 

OD 


DB 

ODH 


07D6 

04 


DB 

40 


07D7 

FI 


POP 

PSW 

JYES, PURGE RET ADDR. 

07D8 

C31B03 


JMP 

RUNNXL 

*RUN NEXT LINE 

07DB 

C9 

FI2 

RET 


rELSE RETURN TO CALLER 

07DC 

EF 

i * 

ENDCHK 

RST 

5 

>*** ENDCHK *** 

07DD 

FEOD 


CPI 

ODH 

JEND WITH CR? 

07DF 

C8 


RZ 


* OK * ELSE SAYJ ‘WHAT?* 

07EO 

D5 

OWHAT 

PUSH 

D 

;*** QWHAT *** 

07E1 

117501 

AWHAT 

LXI 

D * WHAT 

;*** AWHAT *** 

07E4 

97 

ERROR 

SUB 

A 

}*** ERROR *** 

07E5 

CD7F08 


CALL 

PRTSTG 

*PRINT 'WHAT?'* 'HOW?' 

07E8 

D1 


POP 

D 

»OR 'SORRY' 

07E9 

1A 


LDAX 

D 

*SAVE THE CHARACTER 

07EA 

F5 


PUSH 

PSW 

*AT WHERE OLD DE -> 

07EB 

97 


SUB 

A 

*AND PUT A 0 THERE 

07EC 

12 


STAX 

D 


07ED 

2AC109 


LHLD 

CURRNT 

*GET CURRENT LINE * 

07F0 

E5 


PUSH 

H 


07F1 

7E 


MOV 

A»M 

*CHECK THE VALUE 

07F2 

23 


INX 

H 


07F3 

B6 


ORA 

M 


07F4 

D1 


POP 

D 


07F5 

CA8101 


JZ 

RSTART 

* IFF ZERO* JUST RERSTART 

07F8 

7E 


MOV 

A»M 

JIFF NEGATIVE* 

07F9 

B7 


ORA 

A 


07FA 

FA6805 


JM 

INPERR 

* REDO INPUT 

07FD 

CDED08 


CALL 

PRTLN 

JELSE PRINT THE LINE 

0800 

IB 


DCX 

D 

»UPTO WHERE THE 0 IS 

0801 

FI 


POP 

PSW 

* RESTORE THE CHARACTER 

0802 

12 


STAX 

D 


0803 

3E3F 


MV I 

A *770 

»PRINTT A ■?* 

0805 

D7 


RST 

2 


0806 

97 


SUB 

A 

* AND THE REST OF THE 

0807 

CD7F08 


CALL 

PRTSTG 

* LINE 

080A 

C38101 


JMP 

RSTART 


080D 

D5 

GSORRY 

PUSH 

D 

***** OSORRY *** 

080E 

117B01 

ASORRY 

LXI 

D*SORRY 

**** ASORRY *** 

0811 

C3E407 


JMP 

ERROR 



i* 

*************************************************************** 

i* 

t* *** GETLN *** FNDLN (8 FRIENDS) *** 
i* 

i* 'GETLN' READS A INPUT LINE INTO 'BUFFER'. IT FIRST PROMPT 
t* THE CHARACTER IN A (GIVEN BY THE CALLER)r THEN IT FILLS THE 
i* THE BUFFER AND ECHOS. IT IGNORES LF'S AND NULLS, BUT STILL 
i* ECHOS THEM BACK. RUB-OUT IS USED TO CAUSE IT TO DELETE 
i* THE LAST CHARATER (IFF THERE IS ONE), AND ALT-MOD IS USED TO 

i* CAUSE IT TO DELETE THE WHOLE LINE AND START IT ALL OVER. 

J* ODHSIGNALS THE END OF A LINE* AND CAUE 'GETLN' TO RETURN, 
r* 

t* 'FNDLN' FINDS A LINE WITH A GIVEN LINE * (IN HL) IN THE 
t* TEXT SAVE AREA. DE IS USED AS THE TEXT POINTER. IFF THE 
i* LINE IS FOUND* DE WILL POINT TO THE BEGINNING OF THAT LINE 

i* (I.E . , THE LOW BYTE OF THE LINE *>, AND FLAGS ARE NC S Z. 

i* IFF THAT LINE IS NOT THERE AND A LINE WITH A HIGHER LINE ♦ 
i* IS FOUND* DE POINTS TO THERE AND FLAGS ARE NC & NZ. IFF 
i* WE REACHED THE END OF TEXT SAVE ARE AND CANNOT FIND THE 
i * LINE* FLAGS ARE C 8 NZ. 

»* 'FNDLN' WILL INITIALIZE DE TO THE BEGINNING OF THE TEXT SAVE 
?* AREA TO START THE SEARCH. SOME OTHER ENTRIES OF THIS 
J* ROUTINE WILL NOT INITIALIZE DE AND DO THE SEARCH. 
i* 'FNDLNP' WILL START WITH DE AND SEARCH FOR THE LINE #. 

»* 'FNDNXT' WILL BUMP DE BY 2* FIND A ODHAND THEN START SEARCH. 
i* 'FNDSKP' USE DE TO FIND A CR* AND THEN STRART SEARCH. 

** 


0814 D7 

GETLN 

RST 

2 

*** GETLN *** 

0815 11370F 


LXI 

D»BUFFER 

*PROMPT AND INIT 

0818 CD8509 

GL1 

CALL 

CHKIO 

CHECK KEYBOARD 

08IB CA1808 


JZ 

GL1 

NO INPUT* WAIT 

08IE FE7F 


CPI 

1770 

DELETE LST CHARACTER? 

0820 CA4208 


JZ 

GL3 

YES 

0823 FEOA 


CPI 

120 

IGNORE LF 
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0825 

CA1808 


JZ 

GL1 


0828 

B7 


ORA 

A 

*IGNORE NULL 

0829 

CA1808 


JZ 

GL1 


082C 

FE5C 


CPI 

134Q 

»DELETE THE WHOLE LINE? 

082E 

CA4F08 


JZ 

GL4 

* YES 

0831 

12 


STAX 

D 

*ELSE* SAVE INPUT 

0832 

13 


INX 

D 

»AND BUMP POINTER 

0833 

FEOD 


CPI 

15Q 

* WAS IT CR? 

0835 

C23C08 


JNZ 

GL2 

* NO 

0838 

3E0A 


MV I 

A * 12Q 

* YES* GET LINE FEED 

083A 

D7 


RST 

2 

rCALL OUTC AND LINE FEED 

083B 

C9 


RET 


>WE'VE GOT A LINE 

083C 

7B 

GL2 

MOV 

A*E 

>MORE FREE ROOM? 

083D 

FE87 


CPI 

BUFEND 

AND OFFH 

083F 

C21808 


JNZ 

GL1 

fYES* GET NEXT INPUT 

0842 

7B 

GL3 

MOV 

A* E 

»DELETE LAST CHARACTER 

0843 

FE37 


CPI 

BUFFER 

AND OFFH *BUT DO WE HAVE ANY? 

0845 

CA4F08 


JZ 

GL4 

»NO * REDO WHOLE LINE 

0848 

IB 


DCX 

D 

» YES * BACKUP POINTER 

0849 

3E5F 


MVI 

A*'.' 

iAND ECHO A BACK-SPACE 

084B 

D7 


RST 

2 


084C 

C31808 


JMF 

GL1 

* GO GET NEXT INPUT 

084F 

CDOEOO 

GL4 

CALL 

CRLF 

» REDO ENTIRE LINE 

0852 

3E5E 


MVI 

A * 1360 

*CR* LF AND UP-ARROW 

0854 

C31408 


JMP 

GETLN 


0857 

7C 

FNDLN 

MOV 

A*H 

>*** FNDLN *#* 

0858 

B7 


ORA 

A 

» CHECK SIGN OF HL 

0859 

FA6601 


JM 

QHOW 

JIT CANNT BE - 

085C 

11D709 


LXI 

DfTXTBGN fINIT. TEXT POINTER 

085F 

s 

FNDLNP 

EQU 

« 

»*** FNDLNP *## 

085F 

E5 

FL1 

PUSH 

H 

iSAVE LINE # 

0860 

2AD509 


LHLD 

TXTUNF 

i CHECK IFF WE PASSED END 

0863 

2B 


DCX 

H 


0864 

E7 


RST 

4 


0865 

El 


POP 

H 

*GET LINE * BACK 

0866 

D8 


RC 


*C*NZ PASSED END 

0867 

1A 


LDAX 

D 

»WE DID NOT* GET BYTE 1 

0868 

95 


SUB 

L 

*IS THIS THE LINE? 

0869 

47 


MOV 

B * A 

* COMPARE LOW ORDER 

086A 

13 


INX 

D 


086B 

1A 


LDAX 

It 

*GET BYTE 2 

086C 

9C 


SBB 

H 

* COMPARE HIGH ORDER 

086D 

DA7408 


JC 

FL2 

* NO * NOT THERE YET 

0870 

IB 


DCX 

D 

*ELSE WE EITHER FOUND 

0871 

BO 


ORA 

B 

JIT* OR IT IS NOT THERE 

0872 

C9 


RET 


*nc*z:found* nc*nz:no 

0873 

« 

FNDNXT 

EQU 

% 

»*** FNDNXT *** 

0873 

13 


INX 

D 

JFIND NEXT LINE 

0874 

13 

FL2 

INX 

D 

* JUST PASSED BYTE 1 & 2 

0875 

1A 

FNDSKP 

LDAX 

D 

*#** FNDSKP *** 

0876 

FEOD 


CPI 

ODH 

* TRY TO FIND ODH 

0878 

C27408 


JNZ 

FL2 

*KEEP LOOKING 

087B 

13 


INX 

D 

* FOUND CR* SKIP OVER 

087C 

C35F08 


JMP 

FL1 

* CHECK IFF END OF TEXT 


»# 

i****tt***t*****t********************************************t 

*# 

i# *** PRTSTO *** QTSTG #** PRTNUM *** t PRTLN *** 
t* 

i* ' PRTSTG' PRINTS A STRING POINTED BY DE. IT STOPS PRINTING 
)* AND RETURNS TO CALLER WHEN EITHER A ODHIS PRINTED OR WHEN 
** THE NEXT BYTE IS THE SAME AS WHAT WAS IN A (GIVEN BY THE 
** CALLER). OLD A IS STORED IN Br OLD B IS LOST. 
t* 

»* 'QTSTG' LOOKS FOR A BACK-ARROW* SINGLE QUOTE* OR DOUBLE 
i* QUOTE. IFF NONE OF THESE » RETURN TO CALLER. IFF BACK-ARROW* 
»* OUTPUT A ODHWITHOUT A LF. IFF SINGLE OR DOUBLE QUOTE* PRINT 
** THE STRING IN THE QUOTE AND DEMANDS A MATCHING UNQUOTE. 
i * AFTER THE PRINTING THE NEXT 3 BYTES OF THE CALLER IS SKIPPED 
»* OVER (USUALLY A JUMP INSTRUCTION). 

»* 

*# 'PRTNUM' PRINTS THE NUMBER IN HL. LEADING BLANKS ARE ADDED 
»* IFF NEEDED TO PAD THE NUMBER OF SPACES TO THE NUMBER IN C. 

** HOWEVER* IFF THE NUMBER OF DIGITS IS LARGER THAN THE # IN 
** C* ALL DIGITS ARE PRINTED ANYWAY. NEGATIVE SIGN IS ALSO 
** PRINTED AND COUNTED IN* POSITIVE SIGN IS NOT. 

»* 

** 'PRTLN' PRINSRA SAVED TEXT LINE WITH LINE * AND ALL. 



TINY BASIC 


;* 


0S7F 

47 

PRTSTG 

MOV 

B f A 

0880 

1A 

PS1 

LDAX 

D 

0881 

13 


INX 

D 

0882 

B8 


CMP 

B 

0883 

C8 


RZ 


0884 

D7 


RST 

2 

0685 

FEOD 


CPI 

ODH 

0887 

C28008 


JNZ 

PS1 

088A 

C9 


RET 


088B 

CF 

QTSTG 

RST 

1 

088C 

22 


DB 

/ ■ / 

088D 

OF 


DB 

17Q 

088E 

3E22 


MVI 

A f 42Q 

0890 

CD7F0B 

QT1 

CALL 

PRTSTG 

0893 

FEOD 


CPI 

ODH 

0895 

El 


POP 

H 

0896 

CA1B03 


JZ 

RUNNXL 

0899 

23 

QT2 

INX 

H 

089A 

23 


INX 

H 

089B 

23 


INX 

H 

089C 

E9 


PCHL 


089D 

CF 

QT3 

RST 

1 

089E 

27 


DB 

47Q 

089F 

05 


DB 

5Q 

OSAO 

3E27 


MVI 

A f 47Q 

08A2 

C39008 


JMP 

QT1 

08A5 

CF 

QT4 

RST 

1 

08A6 

5F 


DB 

137Q 

08A7 

08 


DB 

10Q 

08A8 

3E8D 


MVI 

A f215Q 

08AA 

D7 


RST 

2 

08AB 

D7 


RST 

2 

08AC 

El 


POP 

H 

08AD 

C39908 


JMP 

QT2 

08B0 

C9 

QT5 

RET 




F* 



08B1 

D5 

PRTNUM 

PUSH 

D 

08B2 

110A00 


LXI 

D f 12Q 

08B5 

D5 


PUSH 

D 

08B6 

42 


MOV 

BfD 

08B7 

OD 


DCR 

C 

08B8 

CDA307 


CALL 

CHKSGN 

08BB 

F2C108 


JP 

PN1 

08BE 

062D 


MVI 

Bf55Q 

08C0 

OD 


DCR 

C 

08C1 

C5 

PN1 

PUSH 

B 

08C2 

CD8607 

PN2 

CALL 

DIVIDE 

08C5 

78 


MOV 

AfB 

08C6 

B1 


ORA 

C 

0BC7 

CAD208 


JZ 

PN3 

08CA 

E3 


XTHL 


08CB 

2D 


DCR 

L 

08CC 

E5 


PUSH 

H 

08CD 

60 


MOV 

HfB 

OSCE 

69 


MOV 

LfC 

08CF 

C3C208 


JMP 

PN2 

08D2 

Cl 

PN3 

POP 

B 

08D3 

OD 

PN4 

DCR 

C 

08D4 

79 


MOV 

A f C 

08D5 

B7 


ORA 

A 

08D6 

FADF08 


JM 

PN5 

08D9 

3E20 


MVI 

A f 40Q 

08 DB 

D7 


RST 

2 

08DC 

C3D308 


JMP 

PN4 

08DF 

78 

PN5 

MOV 

AfB 

08E0 

D7 


RST 

2 

08E1 

5D 


MOV 

EfL 

08E2 

7B 

PN6 

MOV 

AfE 

08E3 

FEOA 


CPI 

12Q 

08E5 

D1 


POP 

D 

08E6 

C8 


RZ 


08E7 

C630 


ADI 

60Q 

08E9 

D7 


RST 

2 

08EA 

C3E208 

F ♦ 

JMP 

PN6 

08ED 

1A 

PRTLN 

LDAX 

D 

OSEE 

6F 


MOV 

LfA 

08EF 

13 


INX 

D 

08F0 

1A 


LDAX 

D 

08F1 

67 


MOV 

Hf A 


165 


;**# PRTSTG *** 
;get a characterr 

fBUMP POINTER 
fSAME AS OLD A? 
t YES r RETURN 
fELSE print it 
fWAS IT A CR? 
i NO t NEXT 
f YESf RETURN 

f*** QTSTG *** 


fIT IS A ' 

'PRINT UNTIL ANOTHER 
fWAS LAST ONE A CRT 
{RETURN ADDRESS 
fWAS CRf RUN NEXT LINE 
fSKIP 3 BYTES ON RETURN 


f RETURN 
fIS IT A ' ? 


fYESf DO SAME 
fAS IN ‘ 

fIS IT BACK-ARROW? 


fYESf ODHWITHOUT LF!t 
fDO IT TWICE TO GIVE 

fTTY enough time 
fRETURN ADDRESS 

f NONE OF ABOVE 

;*** PRTNUM *#* 

{DECIMAL 

f SAVE AS A FLAG 

fB=SIGN 

fC=SPACES 

{CHECK SIGN 

fNO SIGN 

{B=SIGN 

{'-' TAKES SPACE 
{SAVE SIGN & SPACE 
{DEVIDE HL BY 10 
fRESULT 0? 

fYESf WE GOT ALL 
f NO f SAVE REMAINDER 
{AND COUNT SPACE 
fHL IS OLD BC 
{MOVE RESULT TO BC 

{AND DIVIDE BY 10 
fWE GOT ALL DIGITS IN 
f THE STACK 

{LOOK AT SPACE COUNT 

f NO LEADING BLANKS 
fLEADING BLANKS 

f MORE? 

IPRINT SIGN 
fMAYBE - OR NULL 
{LAST REMAINDER IN E 
{CHECK DIGIT IN E 
fIO IS FLAG FOR NO MORE 

JIFF SOf return 
fELSE convert to ascii 

fAND PRINT THE DIGIT 
f GO BACK FOR MORE 

;*** pRTLN *#* 
fLOW ORDER LINE * 

fHIGH ORDER 
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08F2 

13 

INX 

D 




08F3 

0EO4 

MVI 

Cf4Q 

JPRINT 4 

DIGIT 

LINE # 

08F5 

CDB108 

CALL 

PRTNUM 




08F8 

3E20 

MVI 

A t 400 

fFOLLOWED 

BY A 

BLANK 

08F A 

D7 

RST 

2 




08FB 

97 

SUB 

A 

r AND THEN 

THE 

TEXT 

08FC 

CD7F08 

CALL 

PRTSTG 




08FF 

C9 

RET 






r * 

fa************************************************************* 

i* 

it ttt MVUP *** MVDOWN *** POPA *** & PUSHA *** 
it 

*t 'MVUP' MOVES A BLOCK UP FROM HERE DE-> TO WHERE BC-> UNTIL 
i* DE = HL 
i* 

it 'MVDOWN' MOVES A BLOCK DOWN FROM WHERE DE-> TO WHERE HL-> 
f* UNTIL DE = BC 

r* 

it ' POPA ' RESTORES THE 'FOR' LOOP VARIABLE SAVE AREA FROM THE 
i* STACK 
i t 

it 'PUSHA' STACKS THE 'FOR' LOOP VARIABLE SAVE AREA INTO THE 
it STACK 

F* 


0900 

E7 

MVUP 

RST 

4 

ittt MVUP *** 

0901 

C8 


RZ 


fDE = HL r RETURN 

0902 

1A 


LDAX 

D 

fGET ONE BYTE 

0903 

02 


STAX 

B 

;move it 

0904 

13 


INX 

D 

i INCREASE BOTH POINTERS 

0905 

03 


INX 

B 


0906 

C30009 


JMP 

MVUP 

f UNTIL DONE 

0909 

78 

MVDOWN 

MOV 

A f B 

?*** MVDOWN ttt 

090A 

92 


SUB 

D 

JTEST IFF DE = BC 

090B 

C21109 


JNZ 

MD1 

i NO t GO MOVE 

090E 

79 


MOV 

A f C 

»MAYBE r OTHER BYTE? 

090F 

93 


SUB 

E 


0910 

C8 


RZ 


i YES. RETURN 

0911 

IB 

MD1 

DCX 

D 

fELSE MOVE A BYTE 

0912 

2B 


DCX 

H 

rBUT FIRST DECREASE 

0913 

1A 


LDAX 

D 

i BOTH POINTERS AND 

0914 

77 


MOV 

M r A 

fTHEN do it 

0915 

C30909 


JMP 

MVDOWN 

fLOOP BACK 

0918 

Cl 

POPA 

POP 

B 

rBC = RETURN ADDR. 

0919 

El 


POP 

H 

i RESTORE LOPVARr BUT 

091A 

22C909 


SHLD 

LOPVAR 

»=0 MEANS NO MORE 

091D 

7C 


MOV 

AfH 


091E 

B5 


ORA 

L 


091F 

CA3209 


JZ 

PP1 

i YEP ? GO RETURN 

0922 

El 


POP 

H 

rNOP ? RESTORE OTHERS 

0923 

22CB09 


SHLD 

LOPINC 


0926 

El 


POP 

H 


0927 

22CD09 


SHLD 

LOPLMT 


092A 

El 


POP 

H 


092B 

22CF09 


SHLD 

LOPLN 


092E 

El 


POP 

H 


092F 

22D109 


SHLD 

LOPPT 


0932 

C5 

PP1 

PUSH 

B 

f BC = RETURN ADDR. 

0933 

C9 


RET 



0934 

21AF0F 

i # 

PUSHA 

LXI 

HrSTKLHT 

ittt PUSHA *** 

0937 

CDA607 


CALL 

CHGSGN 


093A 

Cl 


POP 

B 

?BC=RETURN ADDRESS 

093B 

39 


DAD 

SP 

fIS STACK NEAR THE TOP? 

093C 

D20D08 


JNC 

QSORRY 

fYES f SORRY FOR THAT. 

093F 

2AC909 


LHLD 

LOPVAR 

fELSE SAVE LOOP VAR.S 

0942 

7C 


MOV 

A f H 

f BUT IFF LOPVAR IS 0 

0943 

B5 


ORA 

L 

fTHAT WILL BE ALL 

0944 

CA5A09 


JZ 

PU1 


0947 

2AD109 


LHLD 

LOPPT 

fELSEf MORE TO SAVE 

094A 

E5 


PUSH 

H 


094B 

2ACF09 


LHLD 

LOPLN 


094E 

E5 


PUSH 

H 


094F 

2ACD09 


LHLD 

LOPLMT 


0952 

E5 


PUSH 

H 


0953 

2ACB09 


LHLD 

LOPINC 


0956 

E5 


PUSH 

H 


0957 

2AC909 


LHLD 

LOPVAR 


095A 

E5 

PU1 

PUSH 

H 


095B 

C5 


PUSH 

B 

f BC = RETURN ADDR. 
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095C C9 RET 

j* 

j *####*#********♦********************************************** 
it 

it ttt OUTC *** i CHKIO *** 
t ! 

it THESE ARE THE ONLY I/O ROUTINES IN TBI. 

it 'OUTC' IS CONTROLLED BY A SOFTWARE SWITCH 'OCSW'. IFF 0CSW=0 
it 'OUTC' WILL JUST RETURN TO THE CALLER. IFF OCSW IS NOT O* 
it IT WILL OUTPUT THE BYTE IN A. IFF THAT IS A CR* A LF IS ALSO 
J* SEND OUT. ONLY THE FLAGS MAY BE CHANGED AT RETURN* ALL REG. 
J* ARE RESTORED. 
it 

it 'CHKIO' CHECKS THE INPUT, IFF NO INPUT* IT WILL RETURN TO 
it THE CALLER WITH THE Z FLAG SET. IFF THERE IS INPUT, Z FLAG 
it IS CLEARED AND THE INPUT BYTE IS IN A. HOWERER, IFF THE 
it INPUT IS A CONTROL-O* THE 'OCSW' SWITCH IS COMPLIMENTED* AND 
J* Z FLAG IS RETURNED. IFF A CONTROL-C iS READ* 'CHKIO' WILL 
J* RESTART TBI AND DO NOT RETURN TO THE CALLER. 
it 




it 

OUTC 

PUSH 

AF THIS IS AT LOC 



it 


LD 

A*OCSW CHECK SOFTWARE SWITCH 



it 


IOR 

A 

095D 

C26209 

QC2 

JNZ 

0C3 

*11 IS ON 

0960 

FI 


POP 

PSW 

* IT IS OFF 

0961 

C9 


RET 


JRESTORE AF AND RETURN 

0962 

FI 

0C3 

POP 

A 

JGET OLD A BACK 

0963 

C5 


PUSH 

B 

JSAVE B ON STACK 

0964 

D5 


PUSH 

D 

* AND D 

0965 

E5 


PUSH 

H 

*AND H TOO 

0966 

32BF09 


STA 

OUTCAR 

* SAVE CHARACTER 

0969 

5F 


MOO 

E* A 

JPUT CHAR. IN E FOR CPM 

096A 

0E02 


MV I 

C,2 

JGET CONOUT COMMAND 

096C 

CDO500 


CALL 

CPM 

JCALL CPM AND DO IT 

096F 

3ABF09 


LDA 

OUTCAR 

JGET CHAR. BACK 

0972 

FEOD 


CPI 

ODH 

* WAS IT A 'CR'? 

0974 

C27E09 


JNZ 

DONE 

i NO * DONE 

0977 

1E0A 


MVI 

E, OAH 

JGET LINEFEED 

0979 

0E02 


MV I 

C * 2 

*AND CONOUT AGAIN 

097B 

CD0500 


CALL 

CPM 

JCALL CPM 

097E 

3ABF09 

DONE 

LDA 

OUTCAR 

* GET CHARACTER BACK 

0981 

El 

I DONE 

POP 

H 

JGET H BACK 

0982 

D1 


POP 

D 

* AND D 

0983 

Cl 


POP 

B 

$AND B TOO 

0984 

C9 


RET 


* DONE AT LAST 

0985 

C5 

CHKIO 

PUSH 

B 

JSAVE B ON STACK 

0986 

D5 


PUSH 

D 

J AND D 

0987 

E5 


PUSH 

H 

i THEN H 

0988 

OEOB 


MVI 

C* 11 

JGET CONSTAT WORD 

098A 

CD0500 


CALL 

CPM 

JCALL THE BDOS 

098D 

B7 


ORA 

A 

* SET FLAGS 

098E 

C29409 


JNZ 

CI1 

JIF READY GET CHARACTER 

0991 

C38109 


JMP 

I DONE 

*RESTORE AND RETURN 

0994 

0E01 

CI1 

MVI 

C,1 

JGET CONIN WORD 

0996 

CD0500 


CALL 

CPM 

JCALL THE BDOS 

0999 

FEOF 


CPI 

OFH 

JIS IT CONTROL-O? 

099B 

C2A809 


JNZ 

CI2 

J NO * MORE CHECKING 

099E 

3AC009 


LDA 

OCSW 

JCONTROL-O FLIP OCSW 

09A1 

2F 


CMA 


JON TO OFF* OFF TO ON 

09A2 

32C009 


STA 

OCSW 

JAND PUT IT BACK 

09A5 

C38509 


JMP 

CHKIO 

JAND GET ANOTHER CHARACTER 

09A8 

FE03 

CI2 

CPI 

3 

JIS IT CONTROL-C? 

09AA 

C28109 


JNZ 

I DONE 

JRETURN AND RESTORE IF NOT 

09AD 

C38101 


JMP 

RSTART 

J YES* RESTART TBI 

09B0 

* 

LSTROM 

EGU 

$ 

JALL ABOVE CAN BE ROM 

09B0 

D3FF 

OUTIO 

OUT 

OFFH 


09B2 

C9 


RET 



09B3 

DBFF 

WAIT10 

IN 

OFFH 


09B5 

AC 


XRA 

H 


09B6 

A5 


ANA 

L 


09B7 

CAB309 


JZ 

WAITIO 


09BA 

F7 


RST 

6 


09BB 

DBFF 

INPIO 

IN 

OFFH 


09BD 

6F 


MOV 

L * A 


09BE 

C9 


RET 



09BF 

00 

OUTCAR 

DB 

0 

*OUTPUT CHAR. STORAGE 

09C0 

FF 

OCSW 

DB 

OFFH 

JSWITCH FOR OUTPUT 

09C1 

0000 

CURRNT 

DW 

‘o 

JPOINTS TO CURRENT LINE 

09C3 

0000 

STKGOS 

DW 

0 

JSAVES SP IN 'GOSUB' 

09C5 

0000 

VARNXT 

DW 

0 

JTEMPORARY STORAGE 

09C7 

0000 

STKINP 

DW 

0 

JSAVES SP IN 'INPUT' 

09C9 

0000 

LOPOAR 

DW 

0 

*'FOR' LOOP SAVE AREA 
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0AA6 

1A 

nxt: 

LDAX 

D 






0AA7 

77 


MOV 

Mr A 






0AA8 

23 


I NX 

H 






0AA9 

13 


I NX 

D 






OAAA 

3E40 


MVI 

ArEOT 






OAAC 

fill 


CMP 

L 






OAALi 

C2AA0A 


JNZ 

NXT 






OABO 

21FF09 


LX I 

HrINIT 





0AB3 

220101 


SHLD 

START+1 





0AB6 

C30001 


JMP 

START 






OFOO 



OR 6 

OFOOH 






OFOO 

K 

TXTEND 

i EQU 

$ 

i TEXT 1 

SAVE AREA ENDS 



OFOO 


VARBGN 

! DS 

2*27 

»VARIABLE 8(0) 




0F36 



DS 

1 

i EXTRA 

BYTE FOR BUFFER 



0F37 


BUFFER 

DS 

80 

;INPUT 

BUFFER 




0F87 

= 

BUFEND 

i EQU 

* 

f BUFFER ENDS 




0F87 



DS 

40 

rEXTRA 

BYTES FOR STACK 



OFAF 

a 

STKLMT 

EQU 

* 

»TOF LIMIT FOR STACK 



2000 



ORG 

2000H 






2000 

= 

STACK 

EQU 

♦ 

i STACK 

STARTS 

HERE 



2000 



END 







OAF 2 

ABS 

01A7 

AHOU 

080E 

ASORRY 

07E1 

AUHAT 

0F8 7 

BUFEND 

OF 3 7 

BUFFER 

07 A A 

CHGSGN 

0985 

CHKIO 

07 A3 

CHKSGN 

0994 

CI1 

0VA8 

C12 

07B8 

CK1 

07B2 

CKHLDE 

0010 

CLOSE 

0005 

CF'M 

OOOE 

CRLF 

09C1 

CURRNT 

05C2 

DEFLT 

0013 

DELETE 

02 DS 

DIRECT 

078A 

DIVIDE 

0343 

DLOAD 

097E 

DONE 

038A 

DSAVE 

0791 

DV1 

0793 

l)V2 

07 DC 

ENDCHK 

0040 

EOT 

07E4 

ERROR 

02D8 

EXO 

02DA 

EX 1 

02ED 

EX2 

02F7 

EX3 

02F9 

EX4 

02FE 

EX5 

02D8 

EXEC 

05D2 

EXPR1 

0A1A 

EXPR2 

0A4A 

EXPR3 

06A7 

EXPR4 

03FC 

EXRC 

005C 

FCB 

03E5 

FCBSET 

07D4 

FI 1 

07DB 

FI 2 

07CD 

FIN 

085F 

FL1 

0874 

FL2 

03EA 

FNCLR 

0857 

FNDLN 

085F 

FNDLNP 

0873 

FNDNXT 

0408 

FN 

0875 

FNDSK'P 

04 A9 

FOR 

04B9 

FR1 

04C3 

FR2 

04C7 

FR3 

04CA 

FR4 

04CD 

FR5 

04E2 

FR7 

0503 

FR8 

0814 

GETLN 

0818 

GL1 

083C 

GL2 

0842 

GL3 

084F 

GL4 

0470 

GOSUB 

0334 

GOTO 

01 AD 

HOW 

0981 

I BONE 

0559 

IFF 

09FF 

INI T 

0738 

INP 

0568 

INPERR 

09BB 

INF'10 

0572 

INPUT 

0572 

IP1 

0580 

IP2 

0590 

IP3 

05A9 

IP3A 

OSBA 

IP4 

05C1 

IPS 

05C8 

LET 

0420 

LIST 

035E 

LOAD 

09CB 

LOPINC 

09CD 

LOPLMT 

09CF 

LOPLN 

09D1 

LOPPT 

09C9 

LOPVAR 

0429 

LSI 

OAOE 

LSTRAM 

09B0 

LSTROM 

05D1 

LT1 

001A 

MAKE 

0911 

MD1 

09D8 

MSG1 

0909 

MVDuUN 

0900 

MVUP 

030A 

NEW 

0508 

NEXT 

OAAO 

NIN IT 

050F 

NXO 

053F 

NX 1 

0551 

NX2 

0527 

NX3 

OAAA 

NXT 

09 5 D 

0C2 

0962 

0C3 

09C0 

ocsw 

0172 

OK 

OOOF 

OPEN 

09BF 

OUTCAR 

070B 

OUTCMD 

09B0 

OUT 10 

OABC 

PARN 

0770 

PASPRM 

0A07 

PATLOP 

0757 

PEEK 

08C1 

F'Nl 

08C2 

PN2 

08D2 

PN3 

08D3 

PN4 

08 DF 

PN5 

08E2 

PN6 

0747 

POKE 

0918 

POPA 

0932 

PP1 

044C 

PRO 

0454 

PR1 

0443 

PR2 

045A 

PR 3 

04A3 

FRA 

0467 

PR'S 

0438 

PRINT 

08EB 

PRTLN 

08B1 

PRTNUM 

08 7 F 

PRTSTG 

0880 

psi 

095A 

PU1 

0934 

PUSHA 

01A6 

QHOW 

u80D 

QSORRY 

0890 

tn i 

0899 

0T2 

0891) 

QT3 

08A5 

QT4 

08B0 

QT5 

088B 

GTSTG 

07E0 

QWHAT 

0AE2 

RA1 

09D3 

RANPNT 

0381 

RDMORE 

0014 

READD 

0555 

REM 

0490 

RETURN 

0AC7 

RND 

0008 

RST1 

0181 

RSTART 

0A50 

RSTBL 

0315 

RUN 

031B 

RUNNXL 

032B 

RUNSML 

0324 

RUNTSL 

031)9 

SAVDON 

03AD 

SAVE 

001A 

SETDMA 

07BA 

SETVAL 

06FE 

SIZE 

0703 

SIZEA 

017B 

SORRY 

0117 

SSI A 

0028 

SSI 

0184 

ST I 

0194 

ST2 

019D 

ST3 

01 A3 

ST3A 

01D2 

ST 4 

01E3 

ST 4 A 

2000 

STACK 

0100 

START 

09C3 

STKGOS 

09C7 

STK1NP 

OFAF 

STKLMT 

030F 

STOP 

079C 

SUBDE 

07CA 

SV1 

01F9 

TAB1 

021A 

TAB 2 

027F 

TAB4 

02B1 

TABS 

02B7 

TABA 

02BF 

TABS 

012F 

TCI 

013A 

TC2 

0143 

TNI 

013E 

TSTNUM 

0103 

TSTVi 

01 IF 

TV1 

0124 

TV1A 

09D7 

TXTBGN 

OFOO 

TXTEND 

09DS 

TXTUNF 

0761 

USR 

0780 

USRET 

OFOO 

VARBGN 

09C5 

VARNXT 

07 IF 

UAITCM 

09B3 

WAITIO 

0175 

WHAT 

0015 

URITED 

03D1 

WRITMOR 

OSDS 

XP11 

05DE 

XP i 2 

05E4 

XP13 

05EB 

XP14 

05F3 

XP1S 

0SF9 

XP16 

05FF 

XP17 

0A01 

XP18 

0A1F 

XP21 

0A22 

XP22 

0623 

XP23 

062C 

XP24 

0A3D 

XP25 

0A40 

XP2A 

0A4D 

XP31 

0A69 

XP32 

0671 

XP33 

0A7C 

XF'34 

0A99 

XP3S 

OAAD 

XP40 

06BA 

XP41 

06C3 

XP42 

0AC4 

XP43 
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Chapter 3 


NIBL—National’s Tiny 
Basic Language 
for SC/MP 

By Phil Roybal 
and Mark Alexander 


Since the birth of the first computing machines, users have sought 
simple ways to build the programs to drive them. While hardware 
technology advanced by leaps and bounds in the 50’s and 60’s, man- 
machine communication struggled painfully forward from patch 
panels to switch arrays and machine code programming. Finally the 
first crude assembler, child of a desperate engineer turned program¬ 
mer, gave promise that users would someday “talk” with their 
machines in a mutually intelligible language. 

Devices available today will allow a computer to identify spoken 
words and to respond vocally. But it will be a long time before the 
average hobbyist or industrial user will be able to describe a problem 
to his computer in common prose and expect any sort of intelligent 
response. The closest thing to this programmer’s dream today is the 
high-level language: typically a simple, limited vocabulary of written 
English words in a rigidly defined grammer. The BASIC programming 
language is a typical example. The high-level language is usually im¬ 
plemented in a translation program (either compiler or interpreter) 
that analyzes each source code input statement and then expresses it 
as a series of machine language commands. High-level languages 
offer these advantages to their users: 

• LEGIBILITY—High-level language statements are much easier to 
read and write than are their assembly language equivalents. This 
simplifies program construction, debug, and documentation. 

• SPEED OF PROGRAMMING—Each statement expands into five to 
ten machine code commands; thus a high-level language program- 
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mer can write a program much more quickly than can an assembly 
language programmer who must generate the same amount of 
code. 

• TRANSPORTABILITY—Programs written in a high-level language 
are (to some extent) machine independent. Thus code written for 
one processor can often be used on an entirely different processor 
with only minor modification. 

Of course nothing comes for free, and the advantages of high-level 
languages have their price. Programs written in them can take 50% to 
200% more memory for their operation; and they often execute much 
more slowly than equivalent assembly language programs. Until quite 
recently these drawbacks restricted the use of high-level languages to 
systems where frequent reprogramming was the rule, and some loss 
of performance was tolerable. They rarely appeared in production 
computer systems which had to be reproduced in quantity; and they 
weren’t used with microprocessors, which were devoted almost ex¬ 
clusively to the control of such systems. But several things have hap¬ 
pened over the last two years to change all that. 

First, microprocessors, memories, and related hardware have 
become simple and inexpensive enough to appeal to the hobbyist, 
who tends to spend his time programming. He is not interested in pro¬ 
duction economies since he rarely builds more than one or two 
systems. But he is highly receptive to tools that make his program¬ 
ming chores easier and more fun. 

Second, microprocessor technology has begun to penetrate non- 
traditional industries. In these new application areas potential users 
not only have not used programmed logic before, but some have never 
used electronic components, let alone microcomputers. They have 
built mechanical and fluid control systems, where the control 
algorithms were defined by levers and pipes. But they have little elec¬ 
tronic experience, and no programming experience at all. They need 
programming tools that are easy to understand and to use; and they 
are willing to part with some system speed and economies to get 
them. 

These forces have spurred the development of high-level languages 
for microprocessors. Thus, when National brought out SC/MP and 
aimed it at the low-end control market, hobbyists, and non-traditional 
users, some kind of high-level language seemed like a necessity. And 
when TINY BASIC a limited version of the standard BASIC language 
began to gain wide acceptance among hobbyists as a game and con¬ 
trol language for microprocessors began to look like a good all around 
language choice. 

For a language to be really useful on microprocessors, it must be 
good for digital input/output and device control as well as for games 
and text manipulation. TINY BASIC, developed as a games language, 
needed improvement in the I/O area. So a series of extensions to the 
hobbyist standard TINY BASIC were defined and built. Thus was born 
National Industrial Basic Language: NIBL (pronounced “Nibble”) for 
short. The objectives for the NIBL language were as follows: 
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• To be a vehicle for rapidly building and evaluating control 
algorithms. 

• To be a simple “self-teaching” approach to the understanding of 
microprocessors. 

• To make use of numerous TINY BASIC games and control pro¬ 
grams already in the public domain. 

• To be a tool for quickly programming low-volume, moderate-speed 
application systems. 

• To be easily expandable by National and by the user. 

TINY BASIC, as originally conceived and written, was an inter¬ 
preter—a translator that executes source code statements directly, 
one at a time, without first translating the user’s entire program into 
machine language as compilers do. This approach has the advantage 
of easier source code manipulation (because the source is always 
available), and instant feedback of simple grammatical errors. The in¬ 
terpretive approach was retained in NIBL. 

Since the original TINY BASIC language was intended to be 
adapted for many microprocessors, it was itself written interpretively 
in an ideal language (IL), designed expressly for the construction of 
translators. Thus, to adapt the language for SC/MP, it was necessary 
only to construct a simple interpreter that allowed the IL to execute on 
SC/MP as depicted in the NIBL symbolic concept, Figure 1. The 
generalized, already written TINY BASIC interpreter would then be 
usable on SC/MP. This multi-layered, onion-like approach gains two 
things: the IL interpreter for the NIBL interpreter is smaller and 
simpler to write than an interpreter for all of NIBL, so the initial invest¬ 
ment to produce the product is reduced. 

Secondly, since most of NIBL is programmed in a highly efficient in¬ 
struction set especially tailored for writing translators, the interpreted 
NIBL is smaller than direct coding would allow. Thus we trade off ex¬ 
ecution speed for memory efficiency. Though all this sounds complex 
in the telling, it is invisible to the user, so it doesn’t matter to most 
people. 

NIBL LANGUAGE 

Language conventions and operating information are shown in the 
following NIBL Quick Reference Guide. This is a summary of the legal 
commands and statements of NIBL. 

Input Line Format and Editing 

• Lines without numbers executed immediately. 

• Lines with numbers inserted (in sequence) in program. 

• Line number alone (empty line) deletes line. 

• Blanks are meaningless, but key words must not contain blanks. 

• CONTROL/U deletes current line. 

• CONTROL/C aborts program, returns to command mode. 

• ” deletes last character typed. 

• CARRIAGE RETURN terminates a line. 
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ONION 



USER'S PROGRAM 
(WRITTEN IN NIBL) 


Figure 1. The NIBL Concept. NIBL, an interpreter, is written in an ideal 
language (IL), which is itself interpreted by a program writ¬ 
ten in SC/MP assembly language. (Diagram by permission of 
Dr. Dobb’s Journal.) 


Commands 

CLEAR deletes all program information 

RUN runs program 

LIST lists program 

LIST X lists program from line X on 

GOTO X runs program from line X on 

PAGE = X selects 4K byte user page X 

NEW clears program but not variable assignments from the selected 
page. 
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Statements 

Input/Output Statements 
PRINT X,Y,Z 

PRINT “THE ANSWER IS,” X 
INPUT X,Y,Z 
aL= 1 
J=aL 

Assignment Statements 
LET X = 3 

LET X= - 15 + 5*Y 

Control Statements 
GOTO X +10 
GOTO 10 
GOSUB Y + 15 
RETURN 

IF X = Y THEN GOTO 15 

DO: A = A+1: PRINT A: UNTIL A = 10 

FOR B = 2 TO 20 STEP 2 

.... NEXT B 

REM THIS IS A COMMENT LINE 
END Ends a program 
LINK 5000 

Variables 

A.Z (26 only) 

Constants 

Numbers 

Decimal 0.9 

HEX 0.F 

All arithmetic is module 2' 5 (±32768) 


Operators 

Arithmetic Relational Logical 

+ - »= OR 

*/ «= AND 

=<> NOT 


NIBL GRAMMAR 

As originally defined, TINY BASIC had the grammatical elements in¬ 
dicated by the asterisk sign (*) in the text margin. While this grammar 
is adequate for a variety of games and internal data manipulations, it 
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can be improved considerably for control applications through the ad¬ 
dition of the rest of the elements shown in the following: 

NIBL LINE = IMMEDIATE STATEMENT 
! PROGRAM LINE 
! INPUT RESPONSE; 

IMMEDIATE STATEMENT = 

(COMMAND ! STATEMENT) CARRIAGE RETURN ; 

PROGRAM LINE = (DECIMAL NUMBER STATEMENT LIST 
CARRIAGE RETURN); 

INPUT RESPONSE = REL EXP (7 REL EXP) * CARRIAGE 
RETURN; 

COMMAND = ‘NEW’ 

* ! ‘CLEAR’ 

* ! ‘LIST’DECIMAL NUMBER? 

* ! ‘RUN’ 

* ! ‘PAGE’ 

STATEMENT LIST = STATEMENT 
7 STATEMENT) * ; 

* STATEMENT = ‘LET’ ? (VARIABLE ! ‘STAT’ ! ‘a’ FACTOR) 

* = ’ REL EXP 

* ! ‘GO’ (‘TO’ ! ‘SUB’) REL EXP 

* ! ‘RETURN’ 

* ! (‘PR’ ! ‘PRINT’) PRINTLIST 

* ! ‘IF’ REL EXPR ‘THEN’ ? STATEMENT 

* ! ‘DO’ 

! ‘UNTIL’ REL EXP 

! ‘FOR’ VARIABLE ‘ = ’ REL EXP ‘TO’ REL EXP 

(‘STEP’ REL EXP) ? 

! ‘NEXT’ VARIABLE 

* ! ‘INPUT’ VARIABLE + 

! ‘LINK’ REL EXP 

! ‘REM’ ANY CHARACTER EXCEPT CARRIAGE 
RETURN 

* ! ‘END’ 

REL EXPR = EXPRESSION RELOP EXPRESSION 
! EXPRESSION 

* RELOP ='<’ 

* ! ‘<" = ’ 

* ! 

* ! ‘>’ 

* ! ‘>’‘ = ’ 


EXPRESSION = EXPRESSION ADDING 
OPERATOR TERM 
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ADDING OPERATOR = 1 + ' ! 

! ‘OR’ ; 

TERM =TERM MULTIPLYING OPERATOR FACTOR 
! FACTOR 

* MULTIPLYING OPERATOR = **’ ! T 
! ‘AND’ ; 

* FACTOR = VARIABLE 

* ! DECIMAL NUMBER 

* ! "<’ REL EXPR ‘>’ 

! ‘a’ FACTOR 

! ‘#’ HEX NUMBER 

! ‘NOT’ FACTOR 

! ‘RND’ <’ REL EXP REL EXP *>’ 

! ‘ST AT’ 

! ‘TOP’ 

* VARIABLE =‘A’ ! ‘B’ ! ‘O' ! ... ! ‘Y’ ! ‘Z’ ; 

* DECIMAL NUMBER = DECIMAL DIGIT + ; 

* DECIMAL DIGIT =‘0’ ! ‘1’ ! ‘2’ ! ... ! ‘9’ ; 

HEX NUMBER = (DECIMAL DIGIT ! HEX DIGIT)+ 
HEX DIGIT =‘A’ ! ‘B’ ! ‘C’ ! ‘D’ ! ‘E’ ! ‘F’ ; 
PRINTLIST = (STRING ! REL EXPR) (STRING ! REL 
EXPR) 

STRING = “” ALMOST ANY CHARACTER 


NOTE: ALL ITEMS IN SINGLE QUOTES ARE ACTUAL 
SYMBOLS IN NIBL; ALL OTHER IDENTIFIERS ARE SYM¬ 
BOLS IN THE GRAMMAR. THE EQUALS SIGN (= ) MEANS 
“IS DEFINED AS”; PARENTHESES ARE USED TO GROUP 
SEVERAL ITEMS TOGETHER AS ONE ITEM; THE EX¬ 
CLAMATION POINT (!) MEANS AN EXCLUSIVE-OR- 
CHOICE BETWEEN THE ITEMS ON EITHER SIDE OF IT; 
THE ASTERISK (*) MEANS ZERO OR MORE OCCUR¬ 
RENCES OF THE ITEM TO ITS LEFT; THE PLUS SIGN ( + ) 
MEANS ONE OR MORE REPETITIONS; THE QUESTION 
MARK (?) MEANS ZERO OR ONE OCCURRENCES; AND 
THE SEMICOLON (;) MARKS THE END OF A DEFINITION. 

IN NIBL, SPACES ARE NOT SIGNIFICANT EXCEPT 
WITHIN THE SYMBOLS IN SINGLE QUOTES IN THE 
GRAMMAR ABOVE. NUMBERS AND RESERVED WORDS 
LIKE ‘PRINT’ OR ‘GO’ MUST NOT HAVE SPACES WITHIN 
THEM. A VARIABLE MUST BE FOLLOWED IMMEDIATELY 
BY A NON-ALPHABETIC CHARACTER IN ORDER TO 
DISTINGUISH IT FROM A KEY WORD. 
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System Requirements 

The NIBL interpreter is intended to be a ROM-resident program in 
the first 4K of the SC/MP Memory address space (although it will run 
just as well in RAM). The interpreter requires at least 2K bytes of RAM 
starting at address 1000 (base 16), of which the interpreter uses nearly 
300 bytes for stacks, variables, etc., leaving the rest for the user’s pro¬ 
gram. Another 2K bytes of memory may be added to fill up this 4K 
page, forming what is hereafter referred to as “Page 1.” 

The SC/MP architecture forces memory to be split into pages of 4K 
bytes each; therefore, NIBL allows seven such pages to be used for 
storing programs. NIBL programs in the seven pages are edited 
separately, but may be linked together during program execution by 
special NIBL statements described in the following pages. Page #1 as 
mentioned above, must be RAM since the interpreter uses part of it as 
temporary storage; the part used to store application programs starts 
at location 111E (base 16). 

The other six pages of memory, each of which starts at location 
nOOO (base 16), where n is the page number, may be either RAM or 
ROM. Page 2 is a special page: it can contain a NIBL program to be ex¬ 
ecuted immediately upon powering up the NIBL system. 

The memory organization of NIBL is shown in Figure 2. 

Throughout this article, the assumption is made that the user has a 
teletype with paper tape reader and punch, as with the SC/MP Low 
Cost Development System (LCDS). In fact, NIBL was designed to use 
the SC/MP LCDS teletype interface, but to be completely independent 
of the LCDS firmware. If NIBL is to be run on its own, the system 
should have the same configuration for the teletype, with the reader 
relay being operated directly by the SC/MP. At present, paper tape is 
the only medium for saving NIBL programs, but as soon as the hard¬ 
ware and software for SC/MP cassette interface become available, 
NIBL will be able to link to routines for saving and loading programs 
with ease. 

Since the teletype interface is not based on a UART, the terminal 
baud rate can only be changed by modifying the time delays in NIBL’s 
I/O routines. NIBL has been run successfully at 1200 baud with a CRT 
terminal; the assembly listing of the NIBL program is programmed for 
a 110 baud rate system. 

Communicating with NIBL 

When the NIBL system is ready to accept input, it prompts at the 
teletype with a “>” prompt sign. (NIBL is now in “edit mode.”) The 
user then enters a line terminated by a carriage return. There are 
several special characters that are used to edit lines as they are 
typed: 

Shift/O (back-arrow) causes the last character type to be deleted. 

Control/H (backspace) performs the same function as shift/O, but 
echoes as a backspace/space/backspace sequence, which is only 
useful if the teletype routines are modified to run at high baud rates 
for use with CRT’s. 
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Control/U (echoes as ‘“U”) causes the entire line to be deleted; 
NIBL reprompts for a new line. 

Entering a line to NIBL without a leading line number causes the 
line to be executed directly by NIBL. Most NIBL statements, as well as 
the four program control commands, may be executed in this manner. 

A line with a leading number (in the range 0 through 32767) is 
entered into the NIBL program in the current page. (Make sure that the 
value of the pseudo-variable PAGE is valid, so that the line isn’t into 
non-existent memory.) The NIBL editor sorts the program lines as they 
are entered into ascending order by line number. 

Typing a line number followed by a carriage return deletes that line 
from the program. Typing a line with the same number as an existing 
line’s causes the new line to replace the old one in the program. 

Each of the seven memory pages may contain a different program, 
separate from the rest. Editing the program in one page will not affect 
the other pages. To switch editing from one page to another, simply 
type PAGE = n, where n is the number of the new page. 

Variables 

There are twenty-six variable names in NIBL: the letters A through 
Z. They are all 16-bit binary variables, so they can be used to hold ad¬ 
dresses as well as signed numeric data. Space for pre-declared 
variables is allocated for them in RAM when NIBL powers up. 

Constants 

NIBL allows either decimal or hexadecimal (base 16) constants to 
appear in expressions. Decimal constants must lie in the range 0 
through 32767; the unary minus (“-”) is used to obtain negative 
values. The value - 32768 is a valid NIBL integer, but it is not legal as 
it stands. To represent it, use -32767-1 or #8000 instead. 

Hexadecimal constants are denoted by a pound sign (“#”) followed 
by a string of hexadecimal digits (0-9, A-F). NIBL does not check for 
overrun in hex constants; consequently, only the 4 least significant 
digits of the hex digit string are kept. 

Functions 

NIBL includes three functions that may appear in any expression. 
These are described as follows: 

RND (X, Y) returns a pseudo-random integer in the range X through 
Y, inclusive, where X and Y are arbitrary expressions. In order for the 
function to work properly, the value of Y - X should be positive and 
no greater than 32767. 

MOD (X, Y) returns the absolute value of the remainder from X divid¬ 
ed by Y (where X and Y are expressions). 

TOP (with no arguments) returns the address of the first free byte in 
the memory page currently being edited or executed. In other words, it 
is the address of the last byte at the top of the current NIBL applica¬ 
tion program in the current page, plus one. 
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Pseudo-Variables 

NIBL has two pseudo-variables in addition to the standard 
variables. These are STAT and PAGE. Both of these variables may ap¬ 
pear on either side of an assignment statement. 

STAT represents the SC/MP status register. The current value of the 
status register can be referred to by using STAT in an expression; or 
an assignment may be made to the status register by executing a 
statement such as STAT = 4 or ST AT = STAT OR #20. When NIBL 
makes an assignment to the status register in this manner, it clears 
the interrupt-enable bit of the value before it is actually assigned. 
Note also that only the lower byte of the value is assigned, the high 
byte is ignored. 

The carry and overflow bits in STAT are meaningless since the NIBL 
system is continually modifying them. The utility of STAT lies in the 
fact that 5 of its bits are connected to I/O sense lines on the SC/MP 
chip. 

The pseudo-variable PAGE contains the number of the memory 
page currently being executed or edited. As indicated in Figure 2, 
there are seven pages in which NIBL programs may be stored; 
therefore, the PAGE number may be only in the range of 1 through 7. If 
an assignment of a value outside this range is made to PAGE, only the 
3 least significant bits LSBs of the value are used. Page one is defined 
as LSBs = 000, page two as LSBs = 001 etc. 

If PAGE is modified while NIBL is in edit mode, all subsequent 
editing will take place in the new page. 

If PAGE is modified by a NIBL program during execution, control 
will be passed to the first line of the NIBL program in the new page. 
This transfer would be effected by a statement such as PAGE = 6 or 
PAGE = PAGE + 1. Thus, several NIBL programs residing in different 
4K pages may be linked together as one large program, if need be. 
This would allow one to write a 28K STAR TREK program in NIBL, a 
Herculean and indeed foolish task. 

Control may also be transferred from one page to another by three 
other statements: RETURN, NEXT, and UNTIL. Thus, the first part of a 
subroutine or loop may be in one page, and the second part may be in 
another (with control being transferred between the two parts by an 
assignment to PAGE). In these three special cases, NIBL automatical¬ 
ly updates the value of PAGE as the statements are executed. 

Relational Operators 

NIBL provides the standard BASIC relational operators, for compar¬ 
ing the values of integer expressions. The operators are as follows: 

= equal to 

< = less than or equal to 

>= greater than or equal to 

<> not equal to 
< less than 
> greater than 
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All of these operators produce 1 as a result if the relation is true, 
and 0 if the relation is false. Note that the relational operators may ap¬ 
pear anywhere that an expression is called for in the NIBL grammar, 
not only in IF statements. 

Arithmetic Operators 

NIBL provides the four standard arithmetic functions: Addition ( + ), 
subtraction or unary minus (-), multiplication (*/), and division (/). 
Since only integers are allowed in NIBL, all quotients are truncated 
(the MOD function can be used to obtain remainders from division). 
Any overflow or underflow (other than division by zero) is ignored by 
NIBL; the reasoning behind this is that it may often be necessary to 
treat NIBL expressions as unsigned values, such as when performing 
calculations using memory addresses as the operands. Thus the 
value of 32767 + 1 is - 32768 (or in hexadecimal, °7FFF + 1 = #8000, 
which makes more sense). 

Logical Operators 

In NIBL, there are three logical operations that may be performed 
on values; AND, OR, and NOT. The first two are binary operators, and 
the latter is unary. All three perform bitwise logical operations on 
16-bit arguments, producing 16-bit results. AND, OR, and NOT are suf¬ 
ficient to simulate any other logical operation, through various com¬ 
binations of the operators. 

The Indirect Operator 

The indirect operator realizes the functions of PEEK and POKE 
operations in other BASICS, but with somewhat more elegance. The 
sign followed by an address (which can be a constant, variable, 
or expression in parentheses) denotes the contents of that address in 
memory. Thus, if memory location 245 (decimal) contains 60, the 
statement X = @245 would result in the value 60 being assigned to X. 
The indirect operator may also appear on the left side of an assign¬ 
ment statement. For example, @X=@(Y + 10) would result in the 
memory location pointed to by X being assigned the value of the 
memory location pointed by the value Y + 10. 

Use of the indirect operator is not limited to reading from or writing 
to memory: it also provides a simple way to communicate with 
peripheral devices that are interfaced to the SC/MP through memory 
addresses. Note that the operator can only access memory one 
byte at a time, and that when an assignment is made to a memory 
location, only the low order byte of the value is moved to the location; 
the high order byte is ignored. 

The indirect operator can also be used to simulate arrays in NIBL. 
For example, if we wish to define an M x N matrix of one-byte positive 
integers, we can access the (l,J)th element of the matrix (assuming 
that (0,0) is a legal element in the matrix) with the expression 
@(A + l*N + J). An assignment could be made to that same element by 
placing the expression on the left side of an assignment statement. 
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Expressions 

Expressions in NIBL are composed of variables, constants, func¬ 
tion references, pseudo-variables, and operators. Operators bind 
these other elements together to form complete expressions. NIBL ex¬ 
pressions are all 16-bit integers. Evaluation of expressions takes 
place left-to-right, and the order in which operations take place is 
determined by operator precedence and the presence of parentheses. 
The order of evaluation can be deduced from the grammar in Table 1; 
here is a table of operator precedence; 

Lowest precedence (applied last): <,>,< = ,> = , = , 

<> 

+, - ,OR 
*,/,AND 

Highest precedence (applied first); @, NOT 

Despite this, it is still safest to use plenty of parentheses in expres¬ 
sions to make the intent clear. 

Program Control Commands 

LIST causes the entire program in the current page to be listed. 
Listing can be halted by hitting any key on the teletype; the BREAK 
Key works best. 

LIST <number> causes listing to begin at the given line number (or 
the nearest one greater than the number), rather than at the first line. 

LISTing a program is the method used to save it on paper tape. To 
accomplish this, type LIST with the punch off, then turn on the punch 
and hit carriage return. After the program is dumped, type a Shift/O 
with teletype on LOCAL so that the last character (a “>”) will be 
deleted when the tape is entered to NIBL at a later time. NIBL will ac¬ 
cept a tape made in this fashion at any time during edit mode. The 
tape reader is enabled at all times by NIBL, and it does not distinguish 
between the reader and the keyboard when accepting input. 
Superfluous line-feed and null characters on the tape are echoed but 
ignored. 

RUN causes three actions: first, all variables are zeroed; secondly, 
all stacks (the FOR, DO, and GOSUB stacks) are cleared; and finally 
the program in the current page is executed, starting with the first line 
in sequence. 

RUN is not the only way to start program execution: GOTO and 
GOSUB can also be used to jump into a program from edit mode. For 
example, if there is a subroutine at line 1000 that is being tested, typ¬ 
ing GOSUB 1000 will cause that routine to be executed, with NIBL 
returning to edit mode upon encountering a RETURN statement. 
When GOTO and GOSUB are used to run a program, the variables and 
stacks are not cleared. 

Hitting any key while a program is being run will cause NIBL to 
break execution, printing a message and the line number where the 
break was detected. The BREAK key on the teletype works best for 
this. 
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CLEAR causes all variables to be zeroed and the three stacks men¬ 
tioned above to be cleared. This latter feature of the CLEAR command 
is quite useful after a stack nesting error has occurred (for example, if 
GOSUBs are nested more than eight levels deep). 

NEW clears the program in Page 1, and changes the value of PAGE 
to 1. This is the form of the command most likely to be used by NIBL 
novices who do not wish to be confused by the page selection 
features of NIBL. NEW should be the first thing one types in to NIBL 
when first powering up. 

NEW <number> sets the value of PAGE to the <number>, and 
clears the program in that page. 

Assignment Statements 

Previously, two different types of assignment statements have 
been described: assignments to the pseudo-variables STAT and 
PAGE, and assignments to memory locations with the indirect 
operator. Another form of the assignment statement is the conven¬ 
tional assignment to a variable (A = Z), e.g. A = A + 1 or A = 32<(4*l). 
There are also statements which look like string assignments, but 
these are not standard BASIC, and are described later in the section 
on string handling. The word “LET” is optional in front of any assign¬ 
ment statement (leaving it out increases execution speed, unlike most 
Tiny BASIC systems). 

IF/THEN Statement 

The IF statement allows conditional execution of one or more 
statements (as many as can fit on one line). The syntax for the IF 
statement is: 

‘IF’ Rel-exp ‘THEN’? Statement 

which indicates that the word THEN is optional, and that any state¬ 
ment (including another IF statement) may follow the conditional ex¬ 
pression. If the IF condition is true (i.e. is non-zero), the statement 
following it (and any others on the line) will be executed; otherwise, 
control immediately transfers to the next program line. The condition 
does not need to contain relational operators: a statement such as IF 
MOD (A,5) THEN... is perfectly legal. In this example, the statement 
following the THEN would be executed if A were not divisible by 5. 

GOTO, GOSUB, and RETURN Statements 

The syntax for the GOTO statement is ‘GOTO’ followed by an ex¬ 
pression. The effect of the GOTO statement is to transfer control to 
the line whose number is indicated by the expression. An error occurs 
if the specific line does not exist in the current page. Unlike standard 
BASICS, any arbitrary expression can be used to specify the line 
number, as well as the usual decimal constant. This allows computed 
branches to be eprformed with the same effect as the ON.. .GOTO 
statement in standard BASIC. 
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The GOSUB statement is identical to the GOTO statement in form. 
It too causes a branch to a new line, but it also saves the address of 
the following statement on a stack. When a RETURN statement is ex¬ 
ecuted, the saved address is popped from the stack, and control 
returns to that point in the program. Since an actual address, not a 
line number, is saved on the GOSUB stack, GOSUB statements may 
appear anywhere on a multiple-statement line. 

GOSUBs may be nested up to eight levels deep; an error will occur if 
an attempt is made to exceed this limit. The error condition does not 
destroy the previous contents of the stack, so a RETURN statement 
can be executed (even in edit mode) without an error occurring. 
However, any modification of the NIBL program will clear the GOSUB 
stack, so that a subsequent RETURN without a GOSUB will cause an 
error. 


DO and UNTIL Statements 

The DO and UNTIL statements are useful in writing program loops 
efficiently, without using misleading GOTO statements. Enclosing a 
group of zero or more statements between a DO statement and an UN¬ 
TIL <condition> statement (where <condition> is an arbitrary expres¬ 
sion) will cause the statement group to be repeated one or more times 
until the <condition> becomes true (i.e. non-zero). As an example of 
the use of the DO and UNTIL statements, we present a program that 
prints the prime numbers: 

10 PRINT 1: PRINT 2 
20 1 = 3 
30 DO 

40 J = 1/2: N = 2 
50 DO 
60 N = N + 2 

70 UNTIL (MOD (l,N) = 0) OR (N>J) 

80 IF N>J PRINT I 
90 1 = 1 + 2 

100 UNTIL 0 

DO loops may be nested up to eight levels deep, and NIBL acts in 
the same manner if an overflow occurs as it does with a GOSUB 
overflow. NIBL also reports an error if an UNTIL statement occurs 
without a previous DO. A single DO loop may have more than one UN¬ 
TIL statement as a terminator. For example, if one wished to exit ab¬ 
normally out of a DO loop and transfer to some appropriate line, it 
could be done in the following manner: 

UNTIL 1: GOTO X 
where X is the line number. 

Neither the DO nor the UNTIL statement may be executed in edit 
mode. 
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FOR and NEXT Statements 

The NIBL FOR statement is virtually identical to that in standard 
BASICs; consequently, it is not explained in great detail here. 

As in most BASICs, both positive and negative STEPs are allowed 
in the FOR statement, and a STEP of + 1 is assumed if the STEP por¬ 
tion of the statement is omitted. A FOR Loop is terminated by a NEXT 
<variable> statement, and the <variable> must be the same as that 
referred to in the FOR statement at the beginning of the loop. 

FOR loops may be nested four levels deep; NIBL reports an error if 
this limit is exceeded, or if a NEXT statement occurs without a 
previous FOR statement. As with the DO and UNTIL statements, FOR 
and NEXT may not be executed in edit mode. 

Perhaps the only differences between the NIBL FOR statement and 
that of more elaborate BASICs (such as DEC’S BASIC-PLUS for the 
PDP-11) are that a FOR Loop is always executed at least once, and 
that when a NEXT statement is executed, the STEP value is added to 
the variable before the test is made to determine if the loop should be 
repeated (rather than after the test). 

INPUT Statement 

There are two types of INPUT statements in NIBL: numeric input 
and string input. The form of the first type is ‘INPUT’ followed by a list 
of one or more variables. When this statement is executed, NIBL 
prompts at the teletype with a question mark (“?”). The user responds 
with a list of expressions separated by commas, and terminated by a 
carriage return. For example, a legal response to the statement INPUT 
A,B,C would be #3FA,26,4*27. These three expressions would then be 
assigned to the variables A,B, and C, respectively. An illegal response 
(too few arguments or improper expressions) will result in a syntax 
error. Any extra arguments in the response are ignored. 

The second type of INPUT statement allows strings to be input. The 
form of the statement is “INPUT 1 ‘S’ <address>, where <address> is a 
Factor, syntactically (usually a variable, constant, or expression in 
parentheses). When this statement is executed, NIBL prompts the 
user as before, at which point the user enters a line terminated by the 
usual carriage return. NIBL then stores the line in memory in con¬ 
secutive locations, beginning at the address specified. Thus, INPUTS 
#6000 would cause the input line to be stored starting at location 6000 
(base 16); the carriage return would also be stored at the end of the 
line. 

Strings input in this manner can be tested and manipulated by us¬ 
ing the operator or the string handling statements described 
below. They can also be displayed by a PRINT statement. 

Neither of the two INPUT statements may be executed in edit mode. 

PRINT Statement 

The form of the PRINT statement is ‘PRINT’ or ‘PR’ followed by a list 
of print items separated by commas, and optionally terminated by a 
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semicolon, which suppresses an otherwise automatic carriage return 
after all items in the list are printed. 

A print item consists of one of the following: 

• A quoted string, which is printed exactly as it appears (with the 
quotes removed) 

• An expression, which is evaluated and printed in decimal format, 
with either a leading space or a minus sign (“ - ”), and one trailing 
space 

• A reference to a string in memory, denoted by “$’ <address>, where 
<address> is a Factor as usual. Successive memory locations, 
starting at the specified address, are printed as ASCII characters, 
until a carriage return (which is not printed) is encountered. 

There is no zone spacing in the PRINT statement, nor does NIBL 

perform an automatic carriage return/line feed after printing 72 
characters. NIBL is not an output-oriented language; fancy formatting 
has been sacrificed for more useful control structures and data 
manipulation features. (A subroutine to print a number and skip to the 
next print zone is a trivial to write in NIBL—it takes about two lines of 
code, with the DO/UNTIL and FOR/NEXT.) 

String Handling Statements 

String handling in NIBL is very minimal and low-level. The string 
handling features of the INPUT and PRINT statements have already 
been mentioned; NIBL provides two more statements for 
manipulating strings. 

A statement such as $<address> = “THIS IS A STRING” would 
cause the quoted string to be stored in memory starting at the 
specified address (which again is a Factor), with a carriage return be¬ 
ing appended to the string. 

Another statement allows the programmer to move strings around 
in memory once they have been created. The form of this statement is 
'$’ <destination> ' = ' ‘$’ <source>, where both <destination> and 
<source> are Factors, and are the addresses of strings in memory. 
This statement causes all the characters in the string pointed to by 
<source> to be copied one-by-one to the memory pointed to by 
<destination>, until a carriage return (also copied) is encountered. 
Overlapping the source and destination addresses can produce 
disastrous results, such as wiping out the entire contents of the cur¬ 
rent page. Consequently, a string move can be aborted by hitting the 
BREAK key on the teletype (but it must be done quickly!). 

Note that all strings referred to in these statements, and in the IN¬ 
PUT and PRINT statements, are assumed to lie within a 4K page, and 
wraparound is a possibility which must be anticipated by the pro¬ 
grammer. (Long-time SC/MP programmers will be familiar with this 
minor problem.) 

Using these statements, it should be very easy to develop a set of 
NIBL subroutines for performing concatenation, comparison, and 
substring operations on strings. 
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END Statement 

The END statement may appear anywhere in a NIBL program and 
not necessarily at the end. It causes a message and the current line 
number to be printed, with NIBL returning to edit mode. The END 
statement is useful when debugging programs, since it acts as a 
breakpoint in the program that can be removed easily. 

LINK Statement 

The LINK statement allows NIBL programs to call SC/MP machine 
language routines at any address. A statement of the form ‘LINK’ <ad- 
dress>, where <address> is an arbitrary expression, will cause the 
NIBL system to call the routine at that address by executing an ap¬ 
propriate XPPC P3 (Exchange contents of the Program Counter with 
designated Pointer Register P3) instruction. The user’s routine should 
make sure that it returns by executing another XPPC P3, and that the 
value of P3 (Pointer Register #3) upon entry to the routine is restored 
before returning. The routine may make use of the fact that P2 is set 
by NIBL to point to the beginning of the RAM block used to store the 
variables A through Z, with each variable being stored low byte first, 
high byte second. Thus, parameters may be passed between NIBL 
programs and machine language routines through the variables. Both 
PI and P2 may be modified by the user’s routines; they are 
automatically restored by the NIBL system upon return. The user 
should be careful not to modify RAM locations with negative 
displacements relative to P2, or the locations with displacements 
greater than 51 relative to P2. These locations are used by the inter¬ 
preter. 

Remark Statement 

A comment can be inserted into a NIBL program by preceding it 
with the word REM, REM causes the rest of the line to be ignored by 
NIBL during execution. Remarks are useful in debugging programs or 
helping other people to understand them, but of course, they take up 
valuable memory. (Then again, memory is getting cheaper all the 
time.) 

Multiple Statements On One Line 

A program line may contain more than one statement, if the 
statements are separated by colons (“;”). Using multiple statements 
on a single line improves the readability of the program by separating 
it into small blocks, and uses less memory for storing the program. 

It is important to note that an IF statement will cause any 
statements appearing after it on the line to be ignored if the IF condi¬ 
tion turns out to be false. This is the feature that allows a group of 
statements to be executed conditionally. 

A multiple-statement line may be entered without a line number, but 
NIBL will only execute the first statement on the line, ignoring the 
rest. 
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NIBL Applications 

Most users sitting at a NIBL terminal for the first time will want to 
start playing games with the machine. There seems to be nothing like 
the thrill of having some quasilogical conversation with, and being 
soundly beaten by, a computer. TINY BASIC was originally built to im¬ 
plement games; and it performs well in this mode. An example of a 
simple NIBL game which will illustrate the flavor of the language is 
shown in Listing 1. 


Listing 1. “Bagels”—A Simple NIBL Game 


10 PRINT “ BAGELS": 

PRINT : 

PRINT "" 

40 PRINT “ I WILL THINK OF A THREE DIGIT NUMBER. YOU TRY TO" 

50 PRINT “ GUESS WHAT IT IS. FOR EACH CORRECT DIGIT IN THE" 

53 PRINT " CORRECT LOCATION, I WILL PRINT 'FERMI'. FOR EACH" 

55 PRINT " CORRECT DIGIT NOT IN THE CORRECT LOCATION, I WILL" 

5? PRINT “ PRINT 'PICO'. IF NO DIGITS ARE CORRECT, I WILL PRINT" 

58 PRINT “ 'BAGLES'. 

PRINT 

PRINT "" 

59 REM 

60 A=RNDC1, 9): 

B=RND<0, 9): 

C=RND(0,9): 

F-0 

70 REM SELECT A NUMBER 

71 REM 

120 PRINT " PLEASE GUESS A THREE DIGIT NUMBER. 

130 INPUT G: 

REM INPUT GUESS, TEST RANGE 
135 REM 

140 IF G> 1000 OR GC100 GOTO 120 
160 M=0: 

N=0: 

P=P+1: 

H=G/100: 

REM ZERO CNTRS, SELECT LEFT DIGIT 
200 IF H=A M=M+1: 

REM CORRECT DIGIT & LOCATION 
210 IF <(H=B> OR <H=C» N=N+1: 

REM CORRECT DIGIT, BAD LOCATION 
230 I=M0D<G,100)718: 

REM SELECT MID. DIGIT OF INPUT 
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240 IF <<I=fi) OR <I=C>> N=N+1: 

REM CORRECT DIGIT, BfiD LOCATION 
250 IF I=B M=M+1: 

REM CORRECT DIGIT & LOCATION 
270 J=MOD(G, 10): 

REM SELECT RIGHT DIGIT OF INPUT 

280 IF <<J=A) OR (J=B)) N=N+1: 

REM CORRECT DIGIT, BAD LOCATION 
380 IF J=C M=M+1: 

REM CORRECT DIGIT & LOCATION 
310 IF M<3 GOTO 600 

320 PRINT “ CONGRATULATIONS! VOU GOT IT IN", P ,"TRIES " 
330 PRINT " PLAY AGAIN ? <1=YES, 0=NO )" 

340 INPUT Q: 

IF Q=0 GOTO 1000 
360 GOTO 60 
500 REM 

550 REM NEXT SECTION PRINTS CLUES 
600 IF MOO 

FOR T=1 TO M: 

PRINT "FERMI : 

NEXT T 
620 IF NO0 

FOR T=1 TO N: 

PRINT "PICO : 

NEXT T 

650 IF M+N =0 PRINT “BAGLES" 

700 PRINT 
GOTO 120: 

REM ASK FOR NEXT GUESS 
1000 PRINT “GOODBYE" 

The object of the game is to guess the number that the 
microprocessor has picked. All numbers are between 100 and 999. For 
each correctly guessed digit in the correct location, the processor 
responds “FERMI.” For each correct digit not in the right location, the 
processor responds “PICO.” If no correct digits are guessed, the pro¬ 
cessor responds "BAGLES." 

The NIBL Language is well suited to control tasks, as long as the 
user recognizes its inherent speed limitations. While it is more than 
adequate for human interface and a variety of other control applica¬ 
tions, it doesn’t have the speed to handle video generation, direct con¬ 
trol of fast peripherals, etc. For these applications, the algorthims 
should be proved out in NIBL, then translated into SC/MP machine 
code for installation in the final system. On the plus side, once the 
user has paid the initial price in speed and ROM for the interpreter, he 
will find that NIBL tasks (which are stored as powerful source 



NIBL 


191 


statements) tend to take less memory than their assembly language 
equivalents. The larger the program, the more dramatic are the sav¬ 
ings. 
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EXECIL 

IF NONE OF THE ABOVE 

172 







173 







174 



, »#*###•*#**## 

****«-*#**•*■** ***♦#**#•***#* 

175 



> * 

INTERMEDIATE LANGUAGE CALL * 

176 



; **#**#*##***■##**##*********#*■**#***#* 

177 







178 

00A0 

C2F9 

ILCALL: 

LD 

PCSTK < F'2) 


179 

00A2 

E4D6 


XRI 

L(LBUF) 

CHECK FOR STACK OVERFLOW 

180 

00 A 4 

9C04 


JNZ 

ILC1 


181 

00 A 6 

C40A 


LDI 

10 


182 

00A8 

9063 


JMP 

EOA 


183 

OOAA 

E4D6 

ILC1: 

XRI 

L(LBUF) 

RESTORE ACCUMULATOR 

184 

00 AC 

33 


XPAL 

P3 

SAVE LOW BYTE OF NEW 

185 

00 AD 

CAEA 


ST 

TEMP(P2) 

I L PC IN TEMP 

186 

OOAF 

C410 


LDI 

H<PCSTAK) 

POINT P3 AT I. L. 

187 

00 B1 

37 


XF'AH 

P3 

SUBROUTINE STACK 

188 

00B2 

C2FB 


LD 

PCLOW (F'2) 

SAVE OLD I L. PC ON STACK 

189 

00B4 

CF01 


ST 

@ 1 < P3) 


190 

00B6 

C2FA 


LD 

PCHIGH (F'2 > 


191 

00B8 

CF01 


ST 

e 1 (P3) 


192 

OOBA 

C2EA 


LD 

TEMP (F'2) 

GET LOW BYTE OF NEW 

193 

OOBC 

33 


XPAL 

P3 

I. L. PC INTO P3 LOW 

194 

OOBD 

CAF9 


ST 

PCSTK (F'2) 

UPDATE I L. STACK POINTER 

195 

OOBF 

40 


LDE 


GET HIGH BYTE OF NEW P3 

196 

OOCO 

D40F 


ANI 

OF 

I L. PC INTO P3 HIGH 

197 

00C2 

37 


XF'AH 

P3 


198 

00C3 

90 B 7 


JMP 

CHEAT 


199 







200 
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201 

202 

203 

204 
203 

206 00C5 

207 00C7 

208 OOC? 
20? OOCB 

210 OOCO 

211 OOCF 

212 OOD1 

213 00D2 

214 00D4 

215 00D6 

216 00D8 

217 00D9 

218 OODB 

219 OODD 

220 OODE 

221 OOEO 

222 00E1 

223 00E3 

224 00E5 

225 00E7 

226 00E8 

227 OOEA 

228 OOEC 

229 OOEE 

230 OOFO 

231 00F1 

232 00F3 

233 00F5 

234 00F6 
233 00F8 

236 00F9 

237 

238 

239 

240 

241 

242 

243 OOFB 

244 OOFD 
243 OOFE 

246 0100 

247 0101 

248 0103 

249 0104 

250 0106 

251 0107 

252 0109 

253 010A 

254 01OB 

255 01OB 

256 

257 

258 

259 

260 
261 


;************************************* 
i* I L. TEST INSTRUCTION * 

; ************************************* 


LOCAL 


CAE7 

TST: 

ST 

CHRNUM< P2) 

CLEAR NUMBER OF CHARS SCANNE 

C501 

♦SCAN: 

LD 

ei (Pi) 

SLEW OFF SPACES 

E420 


XRI 



98FA 


JZ 

♦SCAN 


C5FF 


LD 

8-1<P1> 

REPOSITION CURSOR 

C2FA 


LD 

PCHIGH(P2) 

POINT P3 AT IL TABLE 

37 


XPAH 

P3 


D40F 


AN I 

OF 

FAIL ADDRESS <- OLD P3 

CAEC 


ST 

FAILHI(P2) 


C2FB 


LD 

PCLOW < P2) 


33 


XPAL 

P3 


CAED 


ST 

FAILL0(P2) 


C701 

♦LOOP: 

LD 

«1(P3) 


01 


XAE 


SAVE CHAR FROM TABLE 

BAE7 


DLD 

CHRNUM(P2) 

DECREMENT CHAR COUNT 

40 


LDE 


OET CHAR BACK 

D47F 


AN I 

07F 

SCRUB OFF FLAG (IF ANY) 

E501 


XOR 

tl <P1 ) 

IS CHAR EQUAL TO TEXT CHAR? 

9C07 


JNZ 

♦NEQ 

NO - END TEST 

40 


LDE 


YES - BUT IS IT LAST CHAR? 

94F1 


JP 

♦LOOP 

IF NOT, CONTINUE TO COMPARE 

9090 


JMP 

CHEAT 

IF SO, GET NEXT I. L. 

9088 

XO: 

JMP 

EXECIL 

INSTRUCTION 

C'>F7 

♦NEQ: 

LD 

CHRNUM(P2) 

RESTORE PI TO 

0 * 


XAE 


ORIGINAL VALUE 

C580 


LD 

8 EREG(P1) 


C2EB 


LD 

FAILLU(P2> 

LOAD TEST-FAIL ADDRESS 

33 


XPAL 

P3 

INTO P3 

C2EC 


LD 

FAILHI<P2) 


37 


XPAH 

P3 


90A0 

i *****4 

JMP 

******* 

CHEAT1 

GET NEXT IL INSTRUCTION 


i * 

} **»**4 

I. L. 

SUBROUTINE RETURN 

• 

C410 

RTN: 

LDI 

H(PCSTAK) 

POINT P3 AT I L. PC STACK 

37 


XPAH 

P3 


C2F9 


LD 

PCSTK<P2) 


33 


XPAL 

P3 


C7FF 


LD 

8-1 <P3> 

GET HIGH PART OF OLD PC 

01 


XAE 



C7FF 


LD 

8-1<P3) 

GET LOW PART OF OLD PC 

33 


XPAL 

P3 


CAF9 


ST 

PCSTK(P2) 

UPDATE IL STACK POINTER 

40 


LDE 



37 


XPAH 

P3 i F-3 NOW HAS OLD IL PC 

908E 


JMP 

CHEAT1 


9041 

EOA: 

JMP 

EO 



> ************************************* 
.* SAVE GOSUB RETURN ADDRESS * 
,************************************* 


262 01 OF 

C2FC 

SAV 

LD 

SBRPTR(P2) 


263 

0111 

E47A 


XRI 

L(DOST AK) 

,CHECK FOR MORE 

264 

0113 

981C 


JZ 

SAV2 

, THAN 8 SAVES 

265 

0115 

A AFC 


ILD 

SBRPTR< P2) 


266 

0117 

A AFC 


ILD 

SBRPTR < P2) 


267 0119 

33 


XPAL 

P3 

;SET P3 TO 

268 

01 1A 

C410 


LDI 

H(SBRSTK) 

; SUBROUTINE STACK TOP, 

269 

011C 

37 


XPAH 

P3 


270 

01 ID 

C2F4 


LD 

RUNMOD< P2) 

,IF IMMEDIATE MODE, 

271 

01 IF 

930A 


JZ 

SAV 1 

; SAVE NEGATIVE ADDRESS. 

272 0121 

35 


XPAH 

PI 

.SAVE HIGH PORTION 







NIBL 


195 


273 012 

2 

CBFF 


ST 

-1 ( P3) 

OF CURSOR 

274 012 

4 

35 


XPAH 

PI 


275 012 

5 

31 


XPAL 

PI 

SAVE LOW PORTION 

276 012 

6 

CBFE 


ST 

-2< P3 > 

OF CURSOR 

277 012 

8 

31 


XPAL 

PI 


278 012 

9 

90C1 


•JMP 

XO 

RETURN 

279 012 

0 

C4FF 

SAV1 

LDI 

-1 

IMMEDIATE MODE 

280 012 

D 

CBFF 


ST 

- 1 < P3) 

RETURN ADDRESS IS 

281 012 

F 

90BB 


JMP 

XO 

NEGATIVE 

282 012 

1 

C40A 

SAV2 

LDI 

10 ; 

ERROR MORE THAN 

283 01J 

3 

90 IB 


JMP 

EO 

8 GOSUBS 

284 

285 







286 



, ****** 

****** 

************************* 

287 



. « 

CHECK 

STATEMENT FINISHED 

* 

288 



,****** 

******************************* 

290 012 

T, 

C501 

DONE 

LD 

e 1 < P1 ) 

SKIP SPACES 

291 012 

7 

F420 


XRI 



2*2 012 

9 

9SFA 


JZ 

DONE 


293 012 

0 

E420 


XRI 

1 OD 

IS IT CARRIAGE RETURN? 

294 012 

D 

9804 


JZ 

DONE 1 

YES - RETURN 

295 012 

F 

E437 


XRI 

037 

IS CHAR A ? 

296 0141 

9 CO 1 


JNZ 

DONE 2 

NO - ERROR 

297 0143 

3F 

DONE 1 

XPPC 

P 3 

YES - RETURN 

298 0144 

C404 

DONE 2 

LDI 

4 


29* 0146 

9008 


JMP 

EO 


300 







302 



,****** 

****** 

************************* 

303 



, * 

RETURN 

FRuM iJO'JiJB 

* 

304 



,****** 

****** 

************************* 

305 







306 014 

8 

C2FC 

RSTR 

LD 

SBRPTR(P2) 


307 014A 

E46A 


XRI 

L(SBRSTK) 

CHECK FOR RETURN 

308 0140 

9C04 


JNZ 

RSTR1 

W/Q GOSUB. 

309 014E 

C 409 


LDI 

9 


310 015 

0 

9043 

EO 

JMP 

El 

GOTO ERROR. 

311 015 

2 

BAFC 

RSTR1 

OLD 

SBRPTR<P2> 


312 015 

4 

BAFC 


DLD 

SBRPTR(P2> 

POP GOSUB STACK, 

313 015 

6 

33 


XPAL 

P3 

PUT PTR INTO P3. 

314 015 

7 

C 410 


LDI 

H<SBRSTK) 


315 015 

9 

37 


XPAH 

P3 


316 015 

A 

C301 


LD 

1 (P3) 

IF ADDRESS NEGATIVE, 

317 015 

C 

9409 


JP 

RSTR2 

SUBROUTINE WAS CALLED 

318 015 

E 

C402 


JS 

F’3, FIN 

IN IMMEDIATE MODE, 

319 OU- 

5 

9085 

XI 

JMP 

XO 

SO FINISH UP EXECUTING 

320 0167 

35 

RSTR2: 

XPAH 

PI 

RESTORE CURSOR HIGH 

321 OU* 

8 

C 300 


LD 

0 < P3) 


322 016A 

31 


XPAL 

PI ; 

RESTORE CURSOR LOW 

323 016B 

C401 


LDI 

1 i 

SET RIJN MODE 

324 0160 

CAF4 


ST 

RUNMOD(P2) 


325 OliF 

90 F 4 


JMP 

XI 


326 







327 







328 



;************************************* 

329 



> * 

TRANSFER TO NEW STATEMENT 

* 

330 



, ************* 

******************* 

****** 

331 







332 0171 

C2F2 

XFER 

LD 

LABLHI< P2 > 

CHECK FOR NON-EXISTENT L 

333 0173 

9404 


•JP 

XFER 1 


334 0175 

C40S 


LDI 

8 


335 0177 

901C 


JMP 

El 


336 0179 

C401 

XFER1 

LDI 

1 

SET RUN MODE TO 1 

337 0170 

CAF4 


ST 

RIJNMOD <P2) 


338 0170 

3F 


XPPC 

P 3 


339 







340 







341 



, ***** 

******************************** 

342 



, * 

PRINT 

STRING IN TEXT 

* 

343 



, ***** 

&******************************* 

344 







345 017E 


PRS 

LDP I 

P3» PUTC-1 

, POINT P3 AT PUTC ROUTINE 
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346 

0184 

C501 

LD 

e i (p i ) 

» LOAD NEXT CHAR 

347 

0186 

E422 

XRI 


-IF ", END OF 

348 

0188 

98DE 

JZ 

XI 

. STRING 

349 

018A 

E42F 

XRI 

02F 

,IF CR, ERROR 

350 

018C 

9805 

JZ 

PRS1 


351 

018E 

EAOD 

XRI 

OD 

,RESTORE CHAR 

352 

0190 

3F 

XPF’C 

P3 

,PRINT CHAR 

353 

0191 

90EE 

•jriF' 

PRS 

,GET NEXT CHAR 

354 

0193 

C407 

PRSI LDI 

7 

,SYNTAX ERROR 

355 

0195 

9035 

E1 JMF- 

E2 


356 






357 






358 



, ************************** 

***■***»*«■•** 

359 



- * PRINT 

NUMBER ON STAC 

K * 

360 



, *»****#-*#** 

»#•*******•*********.******** 

361 






362 



- THIS ROUTINE IS EASED ON 

DENNIS ALLISON'S BINARY TO DECIMAL 

363 



, CONVERSION 

ROUTINE IN VOL 

1, #1 OF "DR DOEE S JOURNAL", 

364 



, BUT IS MUC 

H MORE OBSCURE 

BECAUSE OF THE STACK MANIPULATION. 

366 



LOC 

AL 


367 

0197 

C410 

PRN: LDI 

H(AESTK .) 

jPOINT P3 AT A E. STACK 

368 

0199 

37 

XPAH 

P3 


369 

019 A 

AAFD 

ILD 

LSTK(P2 > 


370 

01 9C 

AAFD 

ILD 

LSTK(P2) 


371 

019E 

33 

XPAL 

P3 


372 

019F 

C40A 

LDI 

10 

>PUT 10 ON STACK (WELL BE 

373 

01A1 

CBFE 

ST 

-2 < F‘3) 

> DiyiDING BY IT LATER) 

374 

01 A3 

C400 

LDI 

0 

375 

01A5 

CBFF 

ST 

-1(P3) 


376 

01A7 

C405 

LDI 

5 

;SET CHRNUM TO POINT TO PLACE 

377 

01 A? 

CAE 7 

ST 

CHRNUM(P2) 

; IN STACK WHERE WE STORE 

378 

01AE 

C4FF 

LDI 

-1 

> THE CHARACTERS TO PRINT 

379 

01 AD 

CEOS 

ST 

5 (P3) 

.FIRST CHAR IS A FLAG (-1) 

380 

01AF 

C3FD 

LD 

-3(P3) 

; CHECK IF NUMBER IS NEGATIVE 

381 

01 El 

9413 

JP 

$1 


382 

01B3 

C42D 

LDI 


> PUT ON STACK, AND NEGATE 

383 

01B5 

CB04 

ST 

4 ( PS) 

; THE NUMBER 

384 

01E7 

C 400 

LDI 

0 


385 

01B9 

03 

SCL 



386 

01 BA 

FBFC 

CAD 

-4<P3> 


387 

01 EC 

CBFC 

ST 

-4(P3» 


388 

01 BE 

C400 

LDI 

0 


389 

01 CO 

FBFD 

CAD 

-3(PS) 


390 

01C2 

CBFD 

ST 

-3(P3) 


391 

01C4 

909F 

•JMF* 

XI 

, GO DO DIVISION BY 10 

392 

01C6 

C420 

*1 LDI 


. IF POSITIVE, PUT y ON 

393 

01C8 

CEO 4 

ST 

4 < F*3) 

, STACK BEFORE DIVISION 

394 

01CA 

9099 

X4: JMP 

XI 


395 

01CC 

9057 

E2 JMP 

ERR1 


396 






397 



, the divish 

JN IS PERFORMED 

THEN CONTROL IS TRANSFERRED 

398 



• TO PRN1 , WHICH FOLLOWS. 


399 






400 

01CE 

AAFD 

PRN1 . ILD 

LSTK(P2> 

, POINT F’l AT A. E STACK 

401 

01 DO 

AAFD 

ILD 

LSTK(P2) 


402 

01D2 

31 

XPAL 

PI 


403 

01D3 

C410 

LDI 

H<AESTK) 


404 

01D5 

35 

XPAH 

P1 


405 

01D6 

AAE7 

ILD 

CHRNUM<P2> 

. INCREMENT CHARACTER STACK 

406 

01D8 

01 

XAE 


, POINTER, PUT IN EX. REG 

407 

01D9 

C101 

LD 

1 (PI ) 

, GET REMAINDER FROM DIVIDE, 

408 

01DB 

0C30 

ORI 

0 


409 

01DD 

C980 

ST 

EREO ( PI ) 

, PUT IT ON THE STACK 

410 

01DF 

C1FD 

LD 

-3(PI) 

, IS THE QUOTIENT ZERO YET? 

411 

01E1 

D9FC 

OR 

-4 (PI> 

, 

412 

01E3 

980A 

JZ 

♦PRNT 

> YES - GO PRINT THE NUMBER 

413 

01E5 

C40F 

LDI 

H (F'RNUM 1 ) 

, NO - CHANGE THE I L. PC 

414 

01E7 

CAFA 

ST 

F CHI OH (F'2) 

; SO THAT DIVIDE IS 

415 

01E9 

C42F 

LDI 

L< F’RNUM 1) 

, PERFORMED AGAIN 

416 

01 EE 

CAFE 

ST 

PCLOW(P2) 


417 

01 ED 

90DB 

JMF 

X4 

. GO DO DIVISION BY 10 AGAIN 

418 

01EF 


♦ F’RNT LDP I 

F‘3i PUTC-1 

i POINT P3 AT PUTC ROUTINE 

419 

01F5 

C2F5 

LD 

LISTNG ( F’2 ) 

,IF LISTING, SKIP PRINTING 
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420 

01F7 

9006 


■JNZ 

♦ 2 

, LEADING SPACE 

421 

01F9 

0104 


LD 

4(PI ) 

;PRINT EITHER 

422 

01 FES 

3F 


XPPC 

P3 

, OR LEADING SPACE 

423 

01FC 

C2E7 


LD 

CHRNUM(P2) 

, GET EX. REG. VALUE BACK 

424 

01FE 

01 


XAE 



425 

01FF 

0580 

*2 

LD 

®EREG< PI) 

,POINT PS AT FIRST CHAR 

426 

0201 

0100 


LD 

(PI) 

, TO BE PRINTED 

427 

0203 

3F 

♦LOOP 

XPPO 

P3 

,PRINT THE CHARACTER 

428 

0204 

C5FF 


LD 

e-i (Pi > 

,GET NEXT CHARACTER 

429 

0206 

94FB 


•JP 

♦LOOP 

,REPEAT UNTIL = -1 

430 

0208 

0450 


LDI 

L(AESTK) 


431 

020A 

CAFD 


ST 

LSTK(P2) 

,CLEAR THE A. E STACK 

432 

020C 

02 F 5 


LD 

LISTNO < F‘2) 

,PRINT A TRAILING SPACE 

433 

020E 

90 BA 


JNZ 

X4 

, IF NOT LISTING PROGRAM 

434 

0210 

0420 


LDI 



435 

0212 

3F 


XPPC 

P3 


436 

0213 

90B5 


JMP 

X4 


437 







438 







439 



, ****#***#***•**■»***»**■*■***■»■ 

«•********■»■» 

440 



- * ( 

CARRIAGE 

RETURN/LINE 

FEED * 

441 



, **-#**■«■*******#*«■#*#•*#***■*#*•■*•»»•**#*#*** 

442 







443 

0215 


NLINE 

LDP I 

PS, PUT0-1 

,POINT PS AT PUTC ROUTINE 

444 

02 IB 

C40D 


LDI 

OD 

> CARRIAGE RETURN 

445 

021B 

3F 


XPPO 

PS 


446 

02 IE 

C40A 


LDI 

OA 

;LINE FEED 

447 

0220 

3F 


XPPO 

P3 


448 

0221 

90 A 7 

X5: 

JMP 

X4 


449 







450 







451 



, *********-»-**■#******■**•***■&***•-#••#■■»■*■■«-**•#* 

452 



. # 

ERROR 

ROUTINE 


453 




454 







455 




LOCAL 



456 

0223 

0405 

ERR: 

LDI 

5 

,SYNTAX ERROR 

457 

0225 

OAEB 

ERR1 

ST 

NUM (F'2) 

,SAVE ERROR # 

458 

0227 

C2EB 

ERR2. 

LD 

NUM(P2) 


459 

0229 

CAEA 


ST 

TEMP(P2) 


460 

022B 



LDP I 

P3»PUTO-1 

,POINT PS AT PUTC 

461 

0231 

C40D 


LDI 

OD 

,PRINT OR/LF 

462 

0233 

3F 


XPPO 

P3 


463 

0234 

040A 


LDI 

OA 


464 

0236 

3F 


XPPC 

P3 


465 

0237 



LDP I 

PI,MESGS 

, P1 -> ERROR MESSAGES 

466 

023D 

BAEB 

$1 

Di_D 

NUM < P2 > 

, IS THIS THE RIGHT MESSAGE? 

467 

023F 

9306 


JZ 

♦MSG 

, YES - GO PRINT IT 

468 

0241 

0501 

♦LOOP 

LD 

©1(PI) 

, NO - SCAN THROUGH TO 

469 

0243 

94FC 


JP 

♦LOOP 

, NEXT MESSAGE 

470 

0245 

90F6 


JMP 

♦ 1 


471 

0247 

0501 

♦MSG 

LD 

ei (Pi) 

, GET MESSAGE CHAR 

472 

0249 

3F 


XPPC 

P3 

i PRINT IT 

473 

024A 

01FF 


LD 

-1 (PI ) 

, IS MESSAGE DONE? 

474 

024C 

94F9 


JP 

♦MSG 

,NO - GET NEXT CHAR 

475 

024E 

02EA 


LD 

TEMP(P2) 

>WAS THIS A BREAK MESSAGE? 

476 

0250 

E40E 


XRI 

14 


477 

0252 

980D 


JZ 

♦3 

,YES - SKIP PRINTING ERROR 

478 

0254 



LDP I 

P1,MESGS 

; NO - PRINT ERROR' 

479 

025A 

0501 

♦2 

LD 

©1(PI) 

; GET CHARACTER 

480 

025C 

3F 


XPPO 

P3 

>PRINT IT 

481 

025D 

C1FF 


LD 

-1 < P1) 

> DONE? 

482 

025F 

94F9 


JP 

♦2 

, NO - REPEAT LOOP 

483 

0261 

C2F4 

♦3 

LD 

RIJNMOD (P2) 

.DON'T PRINT LINE # 

484 

0263 

984D 


JZ 

FIN 

; IF IMMEDIATE MODE 

485 

0265 

0420 


LDI 



486 

0267 

3F 


XPPC 

P3 

> SPACE 

487 

0268 

0441 


LDI 

A 

; AT 

488 

026A 

3F 


XPPC 

PS 


489 

026E 

0454 


LDI 

T 


490 

0260 

3F 


XPPO 

P3 


491 

026E 

0410 


LDI 

H(AESTK) 

.POINT PS AT A. E. STACK 

492 

0270 

37 


XPAH 

PS 
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493 

0271 

AAFD 


ILD 

LSTK<P2 > 


494 

0273 

AAFD 


ILD 

LSTK< P2) 


495 

0275 

33 


XPAL 

F'3 


496 

0276 

C2F7 


LD 

HIL1NE < P2) 

.GET HIGH BYTE OF LINE 4 

497 

0278 

CBFF 


ST 

~ 1 (P3) 

,PUT ON STACK 

498 

027A 

C2F8 


LD 

LOLINE(P2) 

.GET LOW BYTE OF LINE # 

499 

027C 

CBFE 


ST 

-2 ( P3 ) 

, PUT ON STACK 

500 

027E 

042D 


LDI 

L ( ERRNUM) 

. GO TO PRN 

501 

0280 

CAF8 


ST 

PCLOW ( P2 ) 


502 

0282 

C40E 


LDI 

H ( ERRNUM ) 


503 

0284 

OAFA 


ST 

PCHIGH ( P2 ) 


504 

0286 

9099 

X5A: 

JMP 

X5 


505 







506 







507 



, ************************************* 

508 



i * 

BREAK, 

NXT. FIN, ?< STRT 

« 

509 



,************************************* 

510 







511 

0288 

040E 

BREAK 

LDI 

14 


512 

02SA 

9099 

E3A: 

JMP 

ERR 1 


513 

02 SC 





,*** NEXT STATEMENT *** 

514 

C2F4 

NXT 

LD 

RUNMOD(P2) 

.IF IN IMMED MODE, 

515 

028E 

9822 


JZ 

FIN 

> STOP EXECUTION 

516 

0290 

0100 


LD 

(PI ) 

.IF WE HIT END OF FILE, 

517 

0292 

D480 


ANI 

080 

, FINISH UP THINGS 

518 

0294 

9010 


JNZ 

FIN 


519 

0296 

06 


CSA 


,BREAK IF SOMEONE IS 

520 

0297 

D420 


ANI 

020 

, TYPING ON THE CONSOLE 

521 

0299 

98ED 


JZ 

BREAK 


522 

0298 

01FF 


LD 

-1 < P1 ) 

<GET LAST CHARACTER SCANNED 

523 

029D 

E40D 


XRI 

OD 

-WAS IT CARRIAGE RETURN? 

524 

029F 

9008 


JNZ 

NX T 1 

,YES - SKIP FOLLOWING UPDATES 

525 

02 A1 

0501 


LD 

@ 1 < P1 ) 

. GET HIGH BYTE OF NEXT LINE # 

526 

02A3 

OAF 7 


ST 

HILINE < P2) 

,SAVE IT 

527 

02A5 

0502 


LD 

@2(PI) 

.GET LOW BYTE OF LINE #, SKIP 

528 

02 A7 

OAFS 


ST 

LOLINE(P2) 

. LINE LENGTH BYTE 

529 

02 A? 

0400: 

NXT1: 

LDI 

H(STMT) 

'GO TO STMT IN IL TABLE 

530 

02AB 

OAFA 


ST 

PC HIGH< P2) 

531 

02AP 

0482 


LDI 

L (STMT) 


532 

02AF 

CAFE 


ST 

PCLOW<P2> 


533 

0281 

3F 


XPPO 

F'3 


534 







535 

0282 

0400 

FIN 

LDI 

0 

, *** FINISH EXECUTION *#* 

536 

0284 

OAF 4 


ST 

RUNMOD(P2) 

,CLEAR RUN MODE 

537 

0286 

0450 


LDI 

L (AESTK ) 

.CLEAR ARITHMETIC STACK 

538 

0288 

CAFD 


ST 

LSTK < P2) 

539 

02BA 

0418 


LDI 

L<START) 

.SET IL PC TO GETTING LINES 

540 

02 BC 

CAFE 


ST 

PCLOW(P2) 


541 

02BE 

0400 


LDI 

H<START) 


542 

02CO 

OAFA 


ST 

PC HIGH< P2) 


543 

02 C2 

04A6 


LDI 

L(POSTAL) 


544 

02C4 

0AF9 


ST 

PCSTK(P2) 


545 

0206 

90 BE 


JMP 

X5A 


546 






,*** START EXECUTION #** 

547 

0208 

AAF4 

STRT 

ILD 

RUNMOD(P2) 

,RUN MODE = 1 

548 

02CA 

C2E9 


LD 

TEMP2(P2) 

;POINT CURSOR TO 

549 

0200 

35 


XPAH 

PI 

, START OF NIBL PROGRAM 

550 

02CD 

02E8 


LD 

TEMPS(P2) 


551 

020F 

31 


XPAL 

PI 


552 

02 D0 

046A 


LDI 

L(SBRSTK) 

.EMPTY SOME STACKS: 

553 

02 D2 

CAFC 


ST 

SBRPTR< P2 > 

i GOSUB STACK, 

554 

02D4 

048A 


LDI 

L < FORSTK> 


555 

02D6 

CAFE 


ST 

FORPTR(P2) 

» FuR STACK 

556 

02D8 

C47A 


LDI 

L < DOST A) > 


557 

02DA 

CAFF 


ST 

DOPTR(P2) 

, & DO/UNTIL STACK 

558 

02 DO 

3F 


XPPO 

P3 

;RETURN 

559 

02DD 

90A7 

X6; 

JMP 

X5A 


560 

02 DF 

90A9 

E4 

JMP 

ESA 


561 







562 







563 



, ************************************* 

564 



, * 

LIST 

NIBL PROGRAM 

* 

565 



,******************************* 

****** 



NIBL 


199 


566 


567 

02E1 

C100 

LST 

LD 

(PI > 

»CHECK FOR END OF FILE 

568 

02E3 

E480 


XRI 

080 


569 

02E5 

9418 


JP 

LST2 


570 

02E7 

0410 


LDI 

H<AESTK) 

* GET LINE NUMBER ONTO STACK 

571 

02E9 

37 


XPAH 

P 3 


572 

02EA 

AAFD 


ILD 

LSTK(P2) 


573 

02EC 

AAFD 


ILD 

LSTK(P2) 


574 

02EE 

33 


XF'AL 

P3 


575 

02EF 

C501 


LD 

<5 1 ( P1 ) 


576 

02F1 

CBFF 


ST 

-KPS') 


577 

02F3 

0501 


LD 

ei (Pi> 


578 

02F5 

CBFE 


ST 

-2(P3) 


579 

02F7 

0501 


LD 

e i < p i) 

.SKIP OVER LINE LENGTH 

580 

02F9 

0401 


LDI 

i 


581 

02FE; 

OAFS 


ST 

LISTNG(P2) 

.SET LISTING FLAG 

582 

02FD 

9 ODE 


•JMP 

X6 

.GO PRINT LINE NUMBER 

583 

02FF 

0400 

LST2 

LDI 

0 


584 

0301 

OAFS 


ST 

LI ST NO (F'2) 

* CLEAR LISTING FLAG 

585 

0303 

0402 


•JS 

P3,NX T 

>GO TO NXT 

586 

030A 

90D1 

X6A: 

JMP 

X6 


587 

030C 

9001 

E5 

JMP 

E4 


588 

030E 


LOT 3 

L DP I 

F‘3. F'UTC-l 

. POINT P3 AT PUTC 

589 

0314 

06 

LOT 4 

OS A 



590 

0315 

D420 


ANI 

020 


591 

0317 

93E6 


JZ 

LST 2 

. IF TYPING, STOP 

=;c>2 

0319 

0501 


LD 

e 1 (P 1 ) 

.GET NEXT CHAR 

«r q 

031E 

E40D 


XRI 

OD 

,TEST FOR OR 

594 

03 ID 

9805 


JZ 

LST 5 


595 

03 IF 

E40D 


XRI 

OD 

. GET CHARACTER 

596 

0321 

3F 


XF'F'C 

P3 

,PRINT CHARACTER 

597 

0322 

90F0 


JMP 

LST 4 


598 

0324 

040D 

LST 5 

LDI 

OD 

.CARRIAGE RETURN 

599 

0326 

3F 


XPPC 

P3 


600 

0327 

040A 


LDI 

OA 

,LINE FEED 

601 

0329 

3F 


XF'F'C 

F'3 


602 

032A 

02 


COL 



603 

0328 

0447 


LDI 

L(LIST 3» 


604 

032D 

CAFE 


ST 

F'CLuW(F'2 > 


605 

032F 

0400 


LDI 

H( LISTS) 


606 

0331 

OAF A 


ST 

F'CHIGH<P2> 


607 

0333 

90AC 


JMP 

LST 

.GET NEXT LINE 

608 







609 







610 



i 



a *■ 

611 



. fr 

ADD 

AND SUBTRACT 

* 

612 



, #««*«- 

* #*•**•*•** *4 

»*****-*****«tt*-IH 

a******* 

613 







614 

0335 

0410 

ADD 

LDI 

H < AESTK> 

. SET F'3 TO CURRENT 

615 

0337 

37 


XF'AH 

F'3 

■ STACK LOCATION 

616 

0338 

8AFD 


DLD 

LSTMP2) 


617 

033A 

BAFD 


OLD 

LSTK(P2 ) 


618 

033C 

33 


XF'AL 

F'3 


619 

033D 

02 


COL 



620 

033E 

C3FE 


L D 

-2<P3) 

.REPLACE TWO TOP ITEMS 

621 

0340 

F300 


ADD 

0< F'3) 

. ON STACK BY THEIR SUM 

622 

0342 

CBFE 


ST 

-2 < F'3) 


623 

0344 

C3FF 


L.D 

-1 (F‘3) 


624 

0346 

F301 


ADD 

1 < F'3) 


625 

0348 

CBFF 


ST 

-1 < PS) 


626 

034A 

90BE 

X 7 

JMP 

XoA 


627 







628 

034C 

0410 

SUB 

LDI 

H(AESTK) 

.SET P3 TO CURRENT 

629 

034E 

37 


XPAH 

F'3 

; STACK LOCATION 

630 

034F 

BAFD 


DLD 

LSTK < P2 > 


631 

0351 

BAFD 


DLD 

LSTK < P2) 


632 

0353 

33 


XF'AL 

P3 


633 

0354 

03 


SOL 



634 

0355 

03FE 


LD 

-2 (F'3) 

.REPLACE TWO TOP ITEMS 

635 

0357 

FBOO 


CAD 

0(P3) 

. ON STACK BY THEIR DIFFERENT 

636 

0359 

CBFE 


ST 

-2<P3> 


637 

0358 

C3FF 


LD 

-1 (F'3 ) 


638 

035D 

FB01 


CAD 

1 (P3) 
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639 035F CBFF ST -1<P3) 

640 0361 90A7 ..IMP X6A 

641 

642 

643 ************************************* 

644 ;* NEGATE * 

£45 > ************************************* 

646 


647 

0363 

0410 

NEG 

LDI 

H(AESTK) 

,SET P3 TO CURRENT 

648 

0365 

37 


XPAH 

P3 

i STACK LOCATION 

649 

0366 

C2FD 


LD 

LSTK(P2) 


650 

0368 

33 


XPAL 

P3 


651 

0369 

03 


SOL 



652 

036A 

0400 


LDI 

0 


653 

036C 

FEFE 


CAD 

-2<P3) 

.NEGATE TOP ITEM ON STACK 

654 

036E 

CBFE 


ST 

'-2<P3) 


655 

0370 

0400 


LDI 

0 


656 

0372 

FBFF 


CAD 

"l<P3i 


657 

0374 

CBFF 


ST 

-1 (P 3 > 


653 

0376 

90D2 

X®. 

..IMP 

X 7 


659 

0373 

9092 

E6 

•JMP 

E5 


660 







661 







662 



,***** 

********** 

************* 

********** 

663 



. * 

MULTIPLY 

* 

664 



, ***** 

>******** 

************* 

********** 

665 







666 




LOCAL 



667 

037A 

0410 

MUL . 

LDI 

H<AESTK> 

,SET P3 TO CURRENT 

663 

0370 

37 


XPAH 

P3 

. STACK LOCATION 

669 

0370 

C2FD 


LD 

LSIK(P2) 


670 

037F 

33 


XPAL 

P3 

,DETERMINE SIGN OF PRODUCT 

671 

0380 

C3FF 


LD 

- 1< P 3) 

. SAVE IN TEMP<P2) 

672 

0382 

E3FD 


XOR 

-3iP3) 


673 

0384 

OAEA 


ST 

T EMP < P2) 


674 

0386 

C3FF 


LD 

- 1(P3J 

, CHECK. FOR NEGATIVE 

675 

0338 

940D 


JP 

♦ 1 

. MULTIPLIER 

676 

033A 

03 


SOL 



677 

0333 

0400 


LDI 

0 

.IF NEGATIVE, 

678 

038D 

FBFE 


CAD 

-2 ( P3i 

, NEGATE 

679 

038F 

CBFE 


ST 

-2<P3> 


680 

0391 

0400 


LDI 

0 


681 

0393 

FBFF 


CAD 

-1 { P 3> 


682 

0395 

CBFF 


ST 

-1<P3) 


683 

0397 

03FD 

*1 

LD 

-3\ P 3 ) 

,CHECK FOR NEGATIVE 

634 

0399 

940D 


JP 

%2 

, MULTIPLICAND 

685 

03--B 

03 


SC L 



686 

0390 

0400 


LDI 

0 

,IF NEGATIVE, 

637 

03*E 

FBFO 


CAD 

-4(P3 > 

, NEGATE 

638 

03 AO 

OBFO 


SI 

-4*P3) 


689 

03 A 2 

0 400 


LDI 

o 


690 

03 A 4 

FBFO 


CAD 

- 3 ( P 3 • 


69 1 

03A6 

OBFD 


ST 

-3 ( P 3 > 


692 

03A8 

0400 

%2 

LDI 

0 

, CLEAR WORKSPACE 

693 

03 A A 

OBOO 


ST 

0 < P 3 > 


694 

03 AO 

OBOl 


ST 

1<P3) 


695 

03AE 

0B02 


ST 

2 i P 3 > 


696 

0380 

CB03 


ST 

3 < P 3 ) 


697 

0382 

0410 


LDI 

1 6 

, SET COUNTER TO 16 

698 

03B4 

OAFB 


ST 

NUM(P2 > 


699 

0336 

03FF 

♦LOOP 

LD 

- M P 3) 

,ROTATE MULTIPLIER 

700 

0338 

IF 


RRL 


, RIGHT ONE BIT 

701 

0 

CBFF 


ST 

-1 < P3) 


702 

03BB 

C3FE 


L L'i 

-2< P3 * 


703 

03BD 

IF 


RRL 



704 

03BE 

CBFE 


ST 

-2(P3> 


705 

0300 

06 


CSA 


■CHECl FOR CARRY BIT 

706 

0301 

9411 


JP 

♦3 

• IF NOT SET, DON'T DO ADD 

707 

0303 

02 


CCL 



708 

0304 

0302 


LD 

2<P3> 

,ADD MULTIPLICAND 

709 

0306 

F3F0 


ADD 

-4( P3 ) 

, INTO WORKSPACE 

710 

0308 

CEO 2 


ST 

2<P3) 
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71 1 

03CA 

C 303 


LD 

3<P3 > 


712 

03 CC 

F3FD 


ADD 

- 3 < p 3 J 


713 

03CE 

CB03 


•3T 

3 (P-3 > 


714 

03D0 

9002 


•JMF 

*3 


715 

03 D 2 

90 A 4 

E6A. 

juf 

E6 


716 

03D4 

02 

$3 

*: cl 



717 

03 D5 

C'30 3 


LD 

3 v F' 3 ) 

-SHIFT WORKSPACE RIGHT BY 1 

715 

03 D 7 

IF 


RRL 



719 

030© 

CD 0 3 


ST 

3 < P 3 * 


720 

03DA 

C302 


LD 

2 < F' 3 ' 


721 

03 DC 

IF 


RRL 



722 

030D 

CB02 


sr 

2 < P 3 i 


723 

03 DF 

C 301 


LD 

1 i P 3 • 


724 

03E1 

IF 


RRL 



725 

03E2 

CBO1 


IT 

1 ■ P3) 


726 

03E4 

C 300 


L Li 

0 (P 3; 


727 

03E6 

IF 


RRL 



723 

03E7 

CBOO 


•:.t 

0(P3. 


729 

03E° 

BAFB 


DL.D 

NUM ( P2 > 

•DECREMENT COUNTER 

730 

03EB 

9CC--' 


JNZ 

♦ LOOP 

•LOOP IF NOT ZERO 

731 

03ED 



•JMF 

♦ 4 


732 

03FF 

9035 

X ,r > 

•JMF 

XS 


733 

03F1 

C2EA 

*4 

L. D 

TEMP < f 2) 

-CHEO SIGN WORD 

734 

03 F 3 

■‘■40D 


•JR 

♦ EXIT 

-IF BIT7 « 1, NEGATE PRODUCT 

735 

03F5 

03 


sc L 



736 

03F6 

C400 


LD 1 

0 


737 

03F3 

FBOO 


C AD 

0 < F' 3 > 


730 

03F A 

CEOO 


ST 

0 (P 3 > 


739 

03FC 

C 400 


LDI 

0 


740 

03FE 

FBOl 


CAD 

1 <P 3 > 


741 

0400 

C DO 1 


ST 

1 i P 3 > 


742 

0402 

C 300 

♦ EX J 1 

LD 

0 * P 3 , 

•PUT pRuDUCl ON TOP 

743 

U404 

CI5FC 


ST 

-4 ( P3 .1 

- OF STACK 

744 

0406 

C 301 


LD 

1 \ P 3 i 


745 

0408 

C BFD 


ST 

-3 i p 3 i 


746 

040A 

BAFD 


DL Li 

LSTKiP2 ' 

■SUBTRACT 2 FROM 

747 

O40C 

BAFD 


DLD 

LSn . P2 1 

. LSTK 

748 

040E 

''ODF 


•JMF 

X v 


749 







750 







751 



, P *-*•**< 



- * ic * <- *■ * «• * V * -tr * *■ 

752 



, * 


Li l VI DL 

* 

753 



. * r « fc *- i- 

fr * * -fr -fr-fr V 

*■ * t: -fr fr * +r * ir t- ir <r *• tr *- Xr V +• * 

754 







755 




LOCAL 



756 

0410 

C 410 

DIV 

LDI 

H(AEsTK > 


757 

041 2 

3 7 


XFAM 

PJ: 


758 

0413 

C2FD 


LD 

LSTK <F _ ) 


759 

0415 

33 


XPAL. 

P3 


760 

0416 

C3FF 


LD 

- 1 < P 3 > 

■ CHECK FOR DIVISION BY 0 

761 

041 © 

DBFE 


OR 

-2<P3> 


762 

041A 

9C04 


JNZ 

♦0 


763 

041C 

C40D 


LDI 

13 


764 

041E 

90B2 


JMF 

E6A 


765 

0420 

C3FD 

♦0 

LD 

-3 < P 3 ) 


766 

0422 

E3FF 


XOR 

- 1 < P 3 i 


767 

0424 

CAE A 


ST 

TEMP < F'2 > 

• SAVE SION OF QUOTIENT 

760 

0426 

C3FD 


LD 

- 3 i P ?•) 

, IS DIVIDEND POSITIVE? 

769 

042© 

9411 


•JP 

♦POS 

, YES - JUMP 

770 

042A 

C 400 


LDI 

0 


771 

042C 

03 


SCL 



772 

042D 

F DF C 


CAL' 

-4(P3) 

, NO - NEGATE DIVIDEND, 

773- 

042F 

CB03 


ST 

3 \ F'3 ) 

, STORE IN RIGHT HALF 

774 

0431 

U400 


LDI 

0 

. OF 32-BIT ACCUMULATOR 

775 

0433 

F BFD 


CAD 

-3<P3) 


776 

0435 

CBO 2 


SI 

2 (F'3) 


777 

0437 

900A 


JMF' 

♦ 1 


770 

0439 

90B4 

X 9 A 

JMF' 

X9 


779 

04315 

C3FD 

♦POS 

LD 

-3(P3) 

-STORE NON-NEGATED DIVIDEND 

780 

043D 

CBO 2 


ST 

2(P3) 

- IN 32-BIT ACCUMULATOR 

781 

043F 

C3FC 


LD 

-4<P3> 


7S2 

0441 

CBO 3 


ST 

3 (P3) 


703 

0443 

C3FF 

*1 

LD 

-KPS) 

- CHECK FOR NEGATIVE DIVISOR 
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794 

3445 940P 

JP 

♦ 2 


7 85 

0447 C400 

LDI 

0 

•NEGATE DIVISOR 

7:36 

0449 03 

SCL 



7:=:7 

044A FBFE 

CAD 

-2<P3) 


7:38 

044C CBFE 

ST 

-2 < P3) 


789 

044E C400 

LDI 

0 


790 

0450 FBFF 

CAD 

- 1(P3) 


791 

0452 CBFF 

ST 

-1(P3) 


792 

0454 C400 

♦2. LDI 

0 

,PUT ZERO IN 

7*3 

0456 CEO1 

ST 

1 (P3) 

, LEFT HALF OF 32-BIT ACC. 

794 

0458 CL:00 

ST 

o <, p3 > 


795 

045A CAEB 

ST 

NUM(P2 ) 

, THE COUNTER. AND 

796 

045C CBFD 

ST 

-3 (P-3) 

IN THE DIVIDEND. NOW USED 

797 

045E CBFC 

ST 

— 4 ( P 3 ) 

, STORE THE QUOTIENT 

798 

0460 02 

4LuOF CCL 


.BEGIN MAIN DIVIDE LOOP: 

799 

0461 C3FC 

LD 

-4 ( P3) 

; SHIFT QUOTIENT LEFT. 

800 

0463 F3FC 

ADD 

-4 < F‘3) 


801 

0465 CBFC 

ST 

-4(F'3> 


802 

0467 C3FD 

LD 

-3 ( P3) 


808 

0469 F3FB 

ADD 

-3(P3 > 


804 

046B CBFD 

ST 

-3 ( P3) 


805 

046D 02 

CCL 


, SHIFT 32-BIT ACC LEFT. 

806 

046E C303 

LD 

3(F‘-3) 


807 

0470 F303 

ADD 

3 (P3 > 


808 

0472 CB"2 

ST 

3 K P3) 


809 

0474 1 : _:<>2 

LD 

2 < F'3) 


810 

64 76 f :02 

ADD 

2<P3) 


811 

0478 lB"-: 

ST 

2 < F'3) 


812 

04 7A •: ?:«.)1 

LD 

1 <P3) 


813 

647i. F > 1 .* 1 

ADD 

1 (F'3) 


814 

047E CB01 

ST 

1 (F'3) 


815 

0430 C300 

LD 

(F'3) 


816 

0482 F 300 

ADD 

(P -3 > 


817 

0484 CBOO 

ST 

(P -3 ) 


818 

0436 03 

SCL 



319 

0437 C301 

LD 

1 v P-3) 

, SUBTRACT DIVISOR INTO 

820 

0489 FBFE 

CAD 

-2 (F‘3) 

LEFT HALF OF ACC. 

821 

048B CB01 

ST 

1 (F‘3) 


822 

043:D r 300 

LD 

(P3 > 


823 

048F FBFF 

CAD 

-1 ( F‘3 ) 


824 

0491 CBOO 

ST 

( P3 ) 


825 

0493 9411 

JP 

♦ENT 1 

, IF RESULT IS NEGATIVE. 

826 

0495 02 

CCL 


. RESTORE ORIGINAL CONTENTS 

827 

0496 0301 

LD 

1 (P3) 

. OF ACC BY ADDING DIVISOR 

070 

0498 F3FE 

ADD 

-2(P3> 



049A CB01 

ST 

1 (P3) 


830 

049C C 300 

LD 

(F‘3) 


831 

049E F3FF 

ADD 

-KPS) 


832 

04AO CBOO 

ST 

(F‘3) 


833 

04A2 9008 

JMP 

♦3 


334 

04A4 9093 

X9B: JMP 

X9A 


835 

04A6 C3FC 

♦ENT 1 LD 

-4 (F‘3) 

; ELSE IF RESULT POSITIVE, 

836 

04A8 DC01 

OR I 

1 

i RECORD A 1 IN QUOTIENT 

837 

04AA CBFC 

sr 

-4 (F‘3) 

W/0 RESTORING THE ACC 

838 

04AC AALB 

♦ 3 ILD 

NUM(P2> 

, INCREMENT THE COUNTER 


04AE E 410 

XRI 

16 

, ARE WE DONE? 

84.0 

04BO 9CAL 

JNZ 

♦LOOP 

, LOOP IF NOT DONE 

341 

04B2 C2EA 

LD 

TEMP(P2 ) 

.CHECK THE QUOTIENT S SIGN, 

842 

04B4 940D 

JP 

♦END 

, NEGATING IF, NECESSARY 

843 

04B6 C400 

LDI 

0 


844 

04B8 03 

SCL 



845 

04B9 FBFC 

CAD 

-4<P3) 


846 

04BB CBFC 

ST 

-4(P3) 


847 

04BD C400 

LDI 

0 


843 

04BF FBFD 

CAD 

-3<P3> 


349 

04 C-1 CBFD 

ST 

1 

X 

0.‘ 


850 

04C3 BAFD 

♦END DLD 

LSTK(P2 ) 

, DECREMENT THE STACK POINTER, 

851 

04C5 BAFD 

DLD 

LSTK < P2 ) 


852 

04C7 96DB 

JMP 

X9B 

, AND EXIT 

854 





855 


, ************************************* 

856 


, * 

STORE VARIABLE 

* 

857 


. ********************** ******* ******** 
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es9 

04C9 

0410 

STORE LDI 

H(AESTK> 

, SET F'3 TO STACK 

860 

04 CB 

37 

XF'AH 

P3 


861 

04CC 

C2FD 

LD 

LSTMP2) 


862 

04CE 

33 

XPAL 

P3 


863 

04CF 

C7FD 

LD 

«-3<P0) 

» GET VARIABLE INDEX 

864 

0401 

01 

XAE 


,PUT IN E REG 

865 

04 D 2 

C301 

LD 

1 <P3> 


866 

0404 

CABO 

ST 

EREO(P2) 

;STORE LOWER 8 BITS 

867 

04D6 

02 

CCL 


i INTO VARIABLE 

868 

04 D 7 

40 

LDE 


- INCREMENT INDEX 

869 

04D8 

F401 

ADI 

1 


870 

04 DA 

01 

XAE 



871 

04 DB 

C302 

LD 

2(P 3) 


872 

04 DO 

CABO 

ST 

EREG(P2) 

/STORE UPPER 8 BITS 

873 

04 DF 

33 

XPAL 

P3 

, INTO VARIABLE 

874 

04 EO 

CAFD 

ST 

LSTK< P2) 

;UPDATE STACK POINTER 

875 

04E2 

C400 

X10: JS 

F"3< EXECIL 


876 




* 


877 






878 



; #*******■#■*■**■#•***■#■*****•#•****•****#***** 

879 



;* TEST FOR 

VARIABLE IN 

TEXT * 

880 



■, ******************** ****************** 

881 






882 

04E9 

C501 

TSTVAR: LD 

@1(PI) 


883 

04EB 

E420 

XRI 


;SLEW OFF SPACES 

884 

04ED 

98FA 

JZ 

TSTVAR 


885 

04EF 

C IFF 

LD 

-1(PI) 

iGET CHARACTER IN QUESTION 

886 

04F1 

03 

SCL 



887 

04F2 

FC5B 

CAI 

Z +1 

/SUBTRACT 'Z' + l 

888 

04F4 

9405 

JP 

♦FAIL 

iNOT VARIABLE IF POSITIVE 

889 

04F6 

03 

SCL 



890 

04F7 

FCE6 

CAI 

A - Z -1 

;SUBTRACT 'A' 

891 

04F9 

9412 

JP 

♦MAYBE 

i IF POS. MAY BE VARIABLE 

892 

04FB 

C5FF 

♦FAIL: LD 

e-i (Pi) 

;BACKSPACE CURSOR 

893 

04FD 

C2FB 

LD 

PCLOW < P2) 

/GET TEST-FAIL ADDRESS 

894 

04FF 

33 

XPAL 

P3 

; FROM I. L. TABLE, PUT IT 

895 

0500 

C2FA 

LD 

PCHIGH<P2) 

, INTO I L. PROGRAM COUNTER 

896 

0502 

37 

XPAH 

P3 


897 

0503 

C300 

LD 

(P3 > 


898 

0505 

CAFA 

ST 

PCHIGH<P2> 


899 

0507 

C301 

LD 

KPS) 


900 

0509 

CAFE 

ST 

PCLOW<P2) 


901 

0500 

90D5 

JMP 

X10 


902 

050D 

01 

♦MAYBE: XAE 


;SAVE VALUE (0-25) 

903 

050E 

C100 

LD 

(PI) 

/CHECK FOLLOWING CHAR 

904 

0510 

03 

SCL 


.MUST NOT BE A LETTER 

905 

0511 

FC5B 

CAI 

Z+l 

, OTHERWISE WE'D BE LOOKING 

906 

0513 

9405 

JP 

♦OK 

, AT A KEYWORD, NOT VARIABLE 

907 

0515 

03 

SCL 



908 

0516 

FCE6 

CAI 

A - Z -1 


909 

0518 

94E1 

JP 

♦ FAIL 


910 

051A 

C410 

♦OK: LDI 

H(AESTK) 

i SET P3 TO CURRENT 

911 

051C 

37 

XPAH 

P3 

; STACK LOCATION 

912 

05 ID 

AAFD 

ILD 

LSTK < P2) 

i INCR STACK POINTER 

913 

05 IF 

33 

XPAL 

PS 


91 4 

0520 

02 

CCL 


,DOUBLE VARIABLE INDEX 

915 

0521 

40 

LDE 



916 

0522 

70 

ADE 



917 

0523 

CBFF 

ST 

--1 (P3 > 

# PUT INDEX ON STACK 

918 

0525 

C402 

LDI 

- 

;INCREMENT I L. PC, SKIPPING 

91 

nS-I 

i 

CCL 


' OVER TEST-FAIL ADDRESS 

'• ■ 

’ '’7' 

F 2F B 

ADD 

PCLOW(P2> 


'-’21 


'* AF !-r 

ST 

PCLOW(P2 ) 


92 *' 

052C- 

C400 

LDI 

0 


■'23 

052E 

f' I f- A 

ADD 

PC-HIGH< F’2) 


9/4 

0530 

CAF A 

ST 

PCHIGH(P2) 


■'5 

0532 

90AE 

JMP 

X 10 



* IND . EVALUATE A VARIABLE * 

*******-»####. 
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r; 

05 A 

■ 4l-> 

IND 

LL'H 

H'.AES'll » 

SET P3 TO STACK 

- - -• 

05 : 



a PAH 

F j 


-----4 


AArti 


ILD 

L5TK(P2) 



O r . 



aF'AL 

P3 



■ •o' O 

*: rn 


L Li 

-2<P3) 

GET INDEX OFF TOP 


‘■• r .; •: 

oj 


XAE 


PUT INDEX IN E REG 

9 

• n 

r ■ 


L Li 

EREGiP2) 

GET LOWER 8 BITS 

9 3 9 

05 3F 

c bf e 


81 

-2\F3> 

SAVE ON STACK 

940 

05 <1 1 

0 2 ' 


>. L 



941 

054. 

4< > 


l DE¬ 


INCREMENT E REG 

94;: 

0543 

F-401 


AD I 

1 


94 3 

0545 

-■I 


XAE 



944 

0546 

'.'280 


LD 

bREG< F2) 

GET UPPER. 8 BITS 

945 

034 8 

C BF F 


ST 

-1(F3 } 

•:-AVE ON STACK 

94 A 

05 4 A 

9096 

VI 1 

JMF' 

X 1 0 


94 7 







94:3 







949 



, fc-*•»<•<<• it ♦r-'r-t-t-Vf- 

it fr it -ft****** * * * *■***■ 

HUH*** 

950 



■ V 

RELAT1GNAL OPERATORS 

* 

c '51 



, «■* i: 

ft it *#•!<•* 

**************«**< 

****** 

953 

1 -54 r 

■: 101 

EQ 

L. DI 

1 

EACH RELATIONAL OPERATOR 

954 

05 4 F 

■ 1 2 


JMP 

CMP 

LOADS A NUMBER USED LATER 

933 

•■ 55 * 

' 4m 2 

NEC' 

LDI 

2 

AS A CASE SELECTOR, AFTER 

9^6 

0552 

'-■« 1 : 


■JMP 

CMP 

THE TWO OPERANDS ARE COM¬ 

937 

'•554 

. 4,- v 

L 35 

LDI 

3 

PARED BASED ON THE COM¬ 

930 

055'. 

■< ■( -H 


■ JMP 

CMP 

PARISON, FLAGS ARE SET THAT 

939 

0558 

'.4 <'4 

L EG! 

LDI 

4 

ARE EQUIVALENT TO THOSE SET 

960 

0556 



■JMP 

CMP 

BY THE CMP' INSTRUCTION IN 

961 

*■551 

1 4m‘. 

GTR 

LDI 

5 

THE PDP-11. THESE PSEUDO¬ 

962 

05‘<f 

9<k.;- 


JMF 

CMP 

FLAGS ARE USED TO DETERMINE 

963 

05- -*'■ 

L 4> >•’: 

GEU 

LDI 

6 

WHETHER THE PARTICULAR 

964 






RELATION IS SATISFIED OR NO 

963 

0562 

CAEB 

C MP: 

ST 

NUM< F2) 


966 

0564 

C 410 


LDI 

H(AESTK) 

SET F‘3 -> ARITH STACK 

967 

0566 



XPAH 

P-3 


96 0 

0567 

BAF D 


DLD 

LSFK< P2) 


969 

0569 

BAFD 


DLD 

LSIK i P2) 


970 

0568 

33 


XF'AL 

P3 


971 

056C 

03 


SCL 



972 

056D 

C3FE 


LD 

-2 < PS ) 

SUBTRACT THE TWO OPERANDS, 

973 

056F 

FBOO 


CAD 

(P3) 

STORING RESULT IN LO & HI 

974 

0571 

CAEF 


ST 

LO (F'2) 


975 

0573 

C3FF 


LD 

-1<P3) 


976 

0575 

FB 01 


CAD 

1 (P3) 


977 

0577 

CAEE 


ST 

HI(P2) 


973 

0579 

E3FF 


XGR 

-1<P3) 

OVERFLOW OCCURS IF SIGNS OF 

979 

057B 

01 


XAE 


RESULT AND 1ST OPERAND 

980 

057C 

C3FF 


LD 

- 1 (P3> 

DIFFER, AND SIGNS OF THE 

981 

057E 

E301 


XOR 

1 (P3) 

TWO OPERANDS DIFFER 

982 

0580 

50 


ANE 


BIT 7 EQUIVALENT TO V FLAG 

983 

0581 

E2EE 


XOR 

HI(P2) 

BIT 7 EQUIVALENT TO N XOR V 

984 

0583 

CAEA 


ST 

TEMP(P2> 

STORE IN TEMP 

985 

0585 

C2EE 


LD 

HI<P2> 

DETERMINE IF RESULT WAS ZERO 

986 

0587 

DAEF 


OR 

LU< P2) 


987 

0589 

9802 


JZ 

SETZ 

IF RESULT=0, SET Z FLAG 

98© 

058B 

C480 


LDI 

080 

ELSE CLEAR Z FLAG 

939 

058D 

E480 

SETZ 

XRI 

080 


990 

058F 

01 


XAE 


BIT 7 OF EX = Z FLAG 

991 







992 

0590 

BAEB 


DLD 

NUM (F’2) 

TEST FOR = 

993 

0592 

9C05 


JNZ 

NEC! 1 


994 

0594 

40 


LDE 


EQUAL IF Z = 1 

995 

0595 

902B 


JMP 

CMF'l 


996 

0597 

90B1 

X 1 2 

JMP 

XI1 


997 

0599 

BAEB 

NEQ1: 

DLD 

NUM(P2 > 

TEST FOR O 

998 

059B 

9005 


JNZ 

LSS 1 


999 

059D 

40 


LDE 


NUT EQUAL IF Z = 0 

1000 

059E 

E480 


XRI 

080 


1001 

OSAO 

9020 


JMP 

CMP 1 


1002 

05A2 

BAEB 

LSS1: 

DLD 

NUM(P2) 

TEST FUR < 

1003 

05 A 4 

9C04 


JNZ 

LEO 1 


1004 

05A6 

C2EA 


LD 

TEMP(P2) 

LESS THAN IF (N XOR V)=l 
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1005 

05A8 

9018 


.JMP 

CMP 1 


1006 

05 A A 

8AE8 

LEG! 1 

DLD 

NUM< P2) 

,TEST FOR <= 

1007 

05 AC 

91205 


JN2 

GTR1 


1008 

05 AE 

40 


LDE 


i LESS THAN OR EQUAL 

1009 

05AF 

DAEA 


OR 

TEMP ( P2) 

, IF (Z OR (N XOR V)>=1 

1010 

05 B1 

900F 


JMP 

CMP 1 


1011 

0583 

BAEB 

GTR1. 

DLD 

NUM<P2) 

,TEST FOR > 

1012 

0585 

9C07 


JNZ 

GEQ1 


1013 

0587 

40 


LDE 


; GREATER THAN 

1014 

0588 

DAEA 


OR 

TEMP(P2) 

, IF (Z OR (N XOR V)>=0 

1015 

058A 

E480 


XRI 

080 


1016 

058C 

9004 


JMP 

CMP 1 


1017 

05 BE 

C2EA 

GEQ1 

LD 

TEMP (P2) 

;GREATER THAN OR EQUAL 

1018 

05 CO 

E480 


XRI 

080 

; IF (N XOR V)=0 

1019 

05 C 2 

9404 

CMP 1 

JP 

FALSE 

i IS RELATION SATISFIED? 

1020 

05C4 

C401 


LDI 

1 

,YES - PUSH 1 ON STACK 

1021 

0506 

9002 


JMP 

CMP 2 


1022 

05C8 

C400 

FALSE 

LDI 

0 

.NO - PUSH 0 ON STACK 

1023 

05CA 

CBFE 

CMP 2 

ST 

-2<P3> 


1024 

05CC 

C400 


LDI 

ij 


1025 

05 CE 

CBFF 


ST 

-1<P3) 


1026 

05 DO 

C400 


JS 

P3# RTN 

; DO AN I . L. RETURN 

1027 

05D7 

,r/ OBE 


• IMP 

X 12 


1028 







1029 







1030 




1031 



■ * IF 

STATEMENT TEST FOR 

ZERO * 

1032 



> ************************************* 

1034 

05D9 

C2EF 

CMPR 

LD 

LO(P2) 

,GET LOW St HI BYTES OF EXPR. 

1035 

05 D 8 

DAF.E 


OR 

HI(P2) 

i TEST IF EXPRESSION IS ZERO 

1036 

05 DD 

V0O2 


JZ 

FAIL 

, YES - IT IS 

1037 

05DF 

90E6 


JMP 

X 12 

, NO - IT ISN'T SO CONTINUE 

1038 

05E1 

C501 

FAIL 

LD 

e i (p i) 

,SKIP TO NEXT LINE IN PROGRAM 

1039 

05E3 

E40D 


XRI 

OD 

, (IE. TIL NEXT CR) 

1U40 

05E5 

9CFA 


JNZ 

FAIL 


1041 

05E7 

C 402 


JS 

P3,NXT 

;CALL NXT AND RETURN 

1042 

05EE 

9oA7 

X12A: 

JMP 

X12 


1043 







1044 







1045 



,******) 

&******* 

r************ 

*********** 

1046 



, * 

AND, 

OR, St NOT 

* 

1047 



, ************************************* 

1048 







1049 




. LOCAL 



1050 

05F0 

C401 

ANDOP. 

LDI 

1 

,EACH OPERATION HAS ITS 

1051 

05 F 2 

9006 


JMP 

*1 

, OWN CASE SELECTOR. 

1052 

05F4 

C402 

CROP 

LDI 

•*> 


1053 

05 F 6 

9002 


JMP 

*1 


1054 

05F8 

C403 

NOTOF. 

LDI 

3 


1055 

05F A 

CAE 8 

*1; 

ST 

NUM(P2) 


1056 

05 FC 

C410 


LDI 

H<AESTK> 

* SET P3 -> ARITH STACK 

1057 

05FE 

37 


XPAH 

P3 


1058 

05FF 

8AFD 


DLD 

LSTK (F’2) 


1059 

0601 

8AF D 


DLD 

LSTK <F'2) 


1060 

0603 

33 


XF'AL 

P3 


1061 

0604 

BAEB 


DLD 

NUM (F'2) 

TEST FOR AND 

1062 

0606 

9C0E 


JNZ 

♦OR 


1063 

0608 

C301 


LD 

1 (P 3) 

• REPLACE TWO TOP ITEMS ON 

1064 

060A 

D3FF 


AND 

-1<P3) 

> STACK BY THEIR ''AND' 

1065 

06 OC 

CBFF 


ST 

-1 (P3) 


1066 

060E 

C300 


LD 

0(P3) 


1067 

0610 

D3FE 


AND 

-2<P3> 


1068 

0612 

CBFE 


ST 

- 2 < P3) 


1069 

0614 

90 D 8 


JMP 

X12A 


1070 

0616 

BAEB 

*UR 

DLD 

NUM (F'2) 

i TEST FOR "OR' 

1071 

0618 

9 COE 


JNZ 

♦NOT 


1072 

061A 

C301 


LD 

1 (P3) 

;REPLACE TWO TOP ITEMS ON 

1073 

061C 

DBFF 


OR 

-1< P3) 

; STACK BY THEIR "OR" 

1074 

06 IE 

CBFF 


ST 

-1(P3) 


1075 

0620 

C JUU 


LD 

0 < P3) 


1076 

0622 

BBFE 


OR 

-2(P3) 


1077 

0624 

CBFE 


ST 

-2 (F’3) 
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1078 

0626 

90C-6 

JMP 

X 12A 


1079 

0628 

C701 ♦NOT 

LD 

©1 <P3) 

NOT OPERATION 

1080 

062A 

E4FF 

XRI 

OFF 


1081 

062C 

CBFF 

ST 

-1<P3) 

REPLACE TOP ITEM ON STACK 

1082 

062E 

C701 

LD 

@1<P3> 

BY ITS ONE'S COMPLEMENT 

1083 

0630 

E4FF 

XRI 

OFF 


1084 

0632 

CBFF 

ST 

-1 < P3) 


1085 

0634 

33 

XPAL 

P3 


1086 

0635 

CAFB 

ST 

LSTK(P2) 

STACK POINTER FIXUP 

1087 

1088 
1089 

0637 

90B5 X12B: 

JMP 

X12A 


1090 


;************************************* 

1091 


i * 

EXCHANGE 

CURSOR WITH RAM 

* 

1092 

1093 


i ************************************* 

1094 

0639 

C2F1 XCHGP1 

LD 

P1LOW < P2) 

THIS ROUTINE IS HANDY WHEN 

1095 

063B 

31 

XPAl_ 

PI 

EXECUTING AN 'INPUT' STMT 

1096 

063C 

CAF1 

ST 

P1L0W(P2) 

IT EXCHANGES THE CURRENT 

1097 

063E 

C2F0 

LD 

P1HIGH(P2> 

TEXT CURSOR WITH ONE SAVED 

1098 

0640 

35 

XPAH 

PI 

IN RAM 

1099 

0641 

CAFO 

ST 

P1HIGH < P2) 


1100 

1101 

1102 

0643 

3F 

XPPO 

P3 


1103 


;************************************* 

1104 


; * 

CHECK RUN MODE 

* 

1105 

1106 


;************************************* 

1 107 

0644 

C2F4 CKMODE 

LD 

RUNMOD(P2) 

THIS ROUTINE CAUSES AN ERROR 

1108 

0646 

9801 

JZ 

OKI 

IF CURRENTLY IN EDIT MODE 

1 109 

0648 

3F 

XPPO 

P3 


1110 

0649 

C403 OKI: 

LDI 

3 


mi 

064B 

CAEB E8: 

ST 

NUM<P2> 

ERROR IF RUN MODE = 0 

1112 

1113 

1114 

064D 

0402 

JS 

P3>ERR2 

MINOR KLUGE 

1115 


i ************************************* 

1 116 


; * 

GET HEXADECIMAL NUMBER 

* 

1 117 
1118 
1119 


i ************************************* 

LOCAL 

1120 

0654 

AAFD HEX: 

ILD 

LSTK < P2) 

POINT P3 AT ARITH STACK 

1121 

0656 

AAFD 

ILD 

LSTK(P2) 


1122 

0658 

33 

XPAL 

P3 


1123 

0659 

0410 

LDI 

H< AESTK) 


1124 

065B 

37 

XPAH 

P3 


1125 

0650 

0400 

LDI 

0 

NUMBER INITIALLY ZERO 

1126 

065E 

CBFF 

ST 

-1(P3) 

PUT IT ON STACK 

1127 

0660 

CBFE 

ST 

-2<P3) 


1128 

0662 

CAEB 

ST 

NUM(P2) 

ZERO NUMBER OF DIGITS 

1129 

0664 

0501 ♦SKIP: 

LD 

61(PI) 

SKIP ANY SPACES 

1130 

0666 

E420 

XRI 

x ' 


1131 

0668 

98FA 

JZ 

♦SKIP 


1132 

066A 

C5FF 

LD 

®-l<P1) 


1133 

1134 

066C 

066E 

0100 $LOOP: 

03 

LD 

SOL 

(PI ) 

GET A CHARACTER 

1135 

066F 

F03A 

CAI 

' 9' 1 

CHECK FOR A NUMERIC CHAR 

1136 

1137 

0671 

0673 

9409 

03 

JP 

SOL 

♦LETR 


1138 

0674 

FCF6 

CAI 

'0 -9-1 

IF NUMERIC/ SHIFT NUMBER 

1139 

0676 

9413 

JP 

♦ENTER 

AND ADD NEW HEX DIGIT 

1140 

0678 

9032 

JMP 

♦END 


1141 

067A 

90BB XI20: 

JMP 

X12B 


1142 

067C 

03 ♦LETR: 

SOL 


CHECK FOR HEX LETTER 

1143 

067D 

FOOD 

CAI 

G- ' 9-1 


1144 

1145 

067F 

0681 

942B 

03 

JP 

SOL 

♦END 


1146 

0682 

FCFA 

CAI 

'A'-'G' 


1147 

0684 

9402 

JP 

♦OK 


1148 

0686 

9024 

JMP 

♦END 


1149 

0688 

02 ♦OK: 

COL 


ADD 10 TO GET TRUE VALUE 

1150 

0689 

F40A 

ADI 

10 

OF LETTER 

1151 

0688 

01 CENTER: 

XAE 


NEW DIGIT IN EX REG 
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1185 LOCAL 


1186 

06B4 

C501 

TSTNUM: 

LD 

«1 (PI) 


1187 

06B6 

E420 


XRI 


i SKIP OVER ANY SPACES 

1188 

06B3 

98FA 


JZ 

TSTNUM 


1189 

06BA 

C5FF 


LD 

@-1(PI) 

• GET FIRST CHAR 

1190 

06BC 

03 


SCL 


j TEST FOR DIGIT 

1191 

06BD 

FC3A 


CAI 

'9' +1 


1192 

06BF 

9405 


JP 

♦ABORT 


1193 

06C1 

03 


SCL 



1194 

06C2 

FCF6 


CAI 



1195 

06C4 

9421 


JP 

♦ 1 


1196 

06C6 

C2FB 

♦ABORT: 

LD 

PCLOW(P2> 

• GET TEST-FAIL ADDRESS 

1197 

06C8 

33 


XPAL 

P3 

» FROM I. L. TABLE 

1198 

06C9 

C2FA 


LD 

PCHIGH(P2> 


1199 

06CB 

37 


XPAH 

P3 


1200 

06CC 

C300 


LD 

<P3> 

;PUT TEST-FAIL ADDRESS 

1201 

06CE 

CAFA 


ST 

PCHIGH(P2) 

i INTO I. L. PC 

1202 

06D0 

C301 


LD 

1 (P3) 


1203 

06D2 

CAFB 


ST 

PCLOW < P2) 


1204 

06D4 

90 A 4 


JMP 

X12C 


1205 

06D6 

C402 

♦RET 

LDI 

2 

;SKIP OVER ONE IL INSTRUCTION 

1206 

06D8 

02 


CCL 


; IF NUMBER IS DONE 

1207 

06D9 

F2FB 


ADD 

PCLOW(P2) 


1208 

06DB 

CAFB 


ST 

PCLOW(P2) 


1209 

06DD 

C400 


LDI 

0 


1210 

06DF 

F2FA 


ADD 

PCHIGH(P2) 


1211 

06E1 

CAFA 


ST 

PCHIGH(P2> 


1212 

06E3 

9095 

X 13: 

JMP 

X12C 


1213 

06E5 

90CB 

E8A: 

JMP 

E8B 


1214 

06E7 

01 

♦ 1: 

XAE 


; SAVE DIGIT IN EX REG 

1215 

06E8 

C410 


LDI 

H(AESTK) 

;POINT P3 AT AE STACK 

1216 

06EA 

37 


XPAH 

P3 


1217 

06EB 

AAFD 


ILD 

LSTK(P2) 


1218 

06ED 

AAFD 


ILD 

LSTK(P2) 


1219 

06EF 

33 


XPAL 

P3 


1220 

06F0 

C400 


LDI 

0 


1221 

06F2 

CBFF 


ST 

-1(P3) 


1222 

06F4 

40 


LDE 



1223 

06F5 

CBFE 


ST 

-2 (P3) 


1224 

06F7 

C501 

♦LOOP 

LD 

ei (Pi) 

;GET NEXT CHAR 

1225 

06F9 

Cl 00 


LD 

(PI) 
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1226 

06FB 

03 


SCL 


;TEST IF IT IS DIGIT 

1227 

06FC 

FC3A 


CAI 

'9+1 


1228 

06FE 

94D6 


JP 

♦RET 

>RETURN IF IT ISN'T 

1229 

0700 

03 


SCL 



1230 

0701 

FCF6 


CAI 

'0'-'9 -1 


1231 

0703 

9402 


•JP 

♦2 


1232 

0705 

90CF 


JMP 

♦RET 


1233 

0707 

01 

*2. 

XAE 


;SAVE DIGIT 

1234 

0708 

C3FF 


LD 

-1< P3) 

* PUT RESULT IN SCRATCH SPACE 

1235 

070A 

CB01 


ST 

1 <P3) 


1236 

070C 

C3FE 


LD 

-2(P3) 


1237 

070E 

CBOO 


ST 

<P3) 


1238 

0710 

C402 


LDI 

2 


1239 

0712 

CAEA 


ST 

TEMP(P2) 

i MULTIPLY RESULT BY 10 

1240 

0714 

02 

♦SHIFT 

: CCL 


;FIRST MULTIPLY BY 4 

1241 

0715 

C3FE 


LD 

-2(P3 > 


1242 

0717 

F3FE 


ADD 

-2<P3) 


1243 

0719 

CBFE 


ST 

-2<P3) 


1244 

0718 

C3FF 


LD 

-1<P3) 


1245 

07 ID 

F3FF 


ADD 

~1(P3) 


1246 

071F 

CBFF 


ST 

-1<P3) 


1247 

0721 

BAEA 


DLD 

TEMP(P2) 


1248 

0723 

9CEF 


JNZ 

♦SHIFT 


1249 

0725 

02 


CCL 


> THEN ADD OLD RESULT» 

1250 

0726 

C3FE 


LD 

-2<P3) 

; SO WE HAVE RESULT * 5 

1251 

0728 

F300 


ADD 

(P3) 


1252 

072A 

CBFE 


ST 

-2<P3) 


1253 

072C 

C3FF 


LD 

— 1< P3) 


1254 

072E 

F301 


ADD 

1 (P3) 


1255 

0730 

CBFF 


ST 

-KPS) 


1256 

0732 

02 


CCL 


; THEN MULTIPLY BY TWO 

1257 

0733 

C3FE 


LD 

-2<P3) 


1258 

0735 

F3FE 


ADD 

-2(P3) 


1259 

0737 

CBFE 


ST 

—2< P3) 


1260 

0739 

C3FF 


LD 

-1<P3) 


1261 

0738 

F3FF 


ADD 

-1<P3) 


1262 

073D 

CBFF 


ST 

-KPS) 


1263 

073F 

02 


CCL 


;THEN ADD IN NEW DIGIT 

1264 

0740 

40 


LDE 



1265 

0741 

F3FE 


ADD 

—2(P3) 


1266 

0743 

CBFE 


ST 

—2(P3) 


1267 

0745 

C400 


LDI 

0 


1268 

0747 

F3FF 


ADD 

-1(P3) 


1269 

0749 

CBFF 


ST 

-1<P3) 


1270 

0748 

94AA 


JP 

♦LOOP 

i REPEAT IF NO OVERFLOW 

1271 

074D 

C406 


LDI 

6 


1272 

074F 

9094 

E9: 

JMP 

ESA 

; ELSE REPORT ERROR 

1273 

0751 

9090 

X 14 

JMP 

X13 


1274 







1275 







1276 





t*************** 

******** 

1277 



i * 

GET LINE 

FROM TELETYPE 

* 

1278 



i *****•*««#«*»*»•••***••****••****»*** 

1279 







1280 




LOCAL 



1281 

0753 


GETL 

LDP I 

PI iLBUF 

* SET PI TO LBUF 

1282 

0759 

C-400 


LDI 

0 

; CLEAR NO. OF CHAR 

1283 

075B 

CAE7 


ST 

CHRNUM(P2) 


1284 

075D 



LDP I 

P3,PUTC-1 

i POINT P3 AT PUTC ROUTINE 

1285 

0763 

C2F4 


LD 

RUNMOD(P2) 

;PRINT '? ' IF RUNNING 

1286 

0765 

9808 


JZ 

♦0 

i <1. E. DURING 'INPUT') 

1287 

0767 

C43F 


LDI 



1288 

0769 

3F 


XPPC 

P3 


1289 

076A 

C420 


LDI 



1290 

076C 

3F 


XPPC 

P3 


1291 

076D 

9003 


JMP 

♦ 1 


1292 

076F 

C43E 

♦0: 

LDI 

'>' 

i OTHERWISE PRINT '>' 

1293 

0771 

3F 


XPPC 

P3 


1294 

0772 

C40F 

♦ 1: 

JS 

P3#OECO 

i OET CHARACTER 

1295 

0779 

C4BD 


LDI 

L(PUTC)-1 

i POINT P3 AT PUTC AGAIN 

1296 

077B 

33 


XPAL 

P3 


1297 

077C 

40 


LDE 


> GET TYPED CHAR 

1298 

077D 

98F3 


JZ 

♦ 1 

i IGNORE NULLS 

1299 

077F 

E40A 


XRI 

OA 

i IGNORE LINE FEED 
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1300 

0781 

98EF 


JZ 

♦ 1 


1301 

0783 

40 


LDE 



1302 

0784 

E40D 


XRI 

OD 

i CHECK FOR CR 

1303 

0786 

9850 


JZ 

♦CR 


1304 

0788 

40 


LDE 



1303 

0789 

E45F 


XRI 

'O'+OIO 

i CHECK FOR SHIFT/O 

1306 

078B 

9841 


JZ 

♦RUB 


1307 

078D 

40 


•LDE 


i CHECK FOR CTRL/H 

1308 

078E 

E408 


XRI 

8 


1309 

0790 

9836 


JZ 

♦ XH 


1310 

0792 

40 


LDE 



1311 

0793 

E415 


XRI 

015 

i CHECK FOR CTRL/U 

1312 

0795 

980F 


JZ 

♦XU 


1313 

0797 

40 


LDE 



1314 

0798 

E403 


XRI 

3 

i CHECK FOR CTRL/C 

1313 

079A 

9C1A 


JNZ 

♦ENTER 


1316 

079C 

C45E 


LDI 

/A/ 

;ECHO CONTROL/C AS ~C 

1317 

079E 

3F 


XPPC 

P3 


1318 

079F 

C443 


LDI 

'C' 


1319 

07 A1 

3F 


XPPC 

P 3 


1320 

07A2 

C40E 


LDI 

14 

;CAUSE A BREAK 

1321 

07A4 

90A9 


JMP 

E9 


1322 

07A6 

C45E 

♦XU: 

LDI 


; ECHO CONTROL/U AS ~U 

1323 

07A8 

3F 


XPPC 

P3 


1324 

07A9 

C455 


LDI 

'\j' 


1325 

07AB 

3F 


XPPC 

P3 


1326 

07AC 

C40D 


LDI 

OD 

i PRINT CR/LF 

1327 

07AE 

3F 


XPPC 

P3 


1328 

07 AF 

C40A 


LDI 

OA 


1329 

07B1 

3F 


XPPC 

P3 


1330 

07B2 

909F 

♦2: 

JMP 

GETL 

i GO GET ANOTHER LINE 

1331 

07B4 

909B 

X 15. 

JMP 

X 14 


1332 

07B6 

40 

♦ENTER 

LDE 



1333 

07B7 

CD01 


ST 

ei (Pi ) 

i PUT CHAR IN LBUF 

1334 

07B9 

AAE7 


ILD 

CHRNUM(P2) 

. INCREMENT CHRNUM 

1335 

07BB 

E448 


XRI 

72 

; IF=72. LINE FULL 

1336 

07BD 

9CB3 


JNZ 

♦ 1 


1337 

07 BF 

C40D 


LDI 

OD 


1338 

07C1 

01 


XAE 


i SAVE CARRIAGE RET 

1339 

07C2 

40 


LDE 



1340 

07C3 

3F 


XPPC 

P3 

»PRINT IT 

1341 

07C4 

9012 


JMP 

♦CR 

;STORE IT IN LBUF 

1342 

07C6 

9087 

E10: 

JMP 

E9 


1343 

07C8 

C420 

♦ XH 

LDI 


;BLANK OUT THE CHARACTER 

1344 

07CA 

3F 


XPPC 

P3 


1345 

07CB 

C408 

-* 

LDI 

8 

.PRINT ANOTHER BACKSPACE 

1346 

07CD 

3F 


XPPC 

P3 


1347 

07CE 

C2E7 

♦RUB 

LD 

CHRNUM ( P2) 


1348 

07D0 

98A0 


JZ 

♦ 1 


1349 

07D2 

BAE7 


DLD 

CHRNUM<P2> 

. ONE LESS CHAR 

1350 

07D4 

C5FF 


LD 

e-i(PI) 

; BACKSPACE CURSOR 

1351 

07D6 

909A 


JMP 

♦ 1 


1352 

07D8 

40 

♦CR: 

LDE 



1353 

07D9 

CD01 


ST 

ei< pi> 

; STORE CR IN LBUF 

1354 07DB 

C40A 


LDI 

OA 

.PRINT LINE FEED 

1355 

07DD 

3F 


XPPC 

P3 


1356 

07DE 

C410 


LDI 

H(LBUF) 

;SET PI TO BEGIN- 

1357 

07EO 

35 


XPAH 

PI 

i NING OF LBUF 

1358 

07E1 

C4D6 


LDI 

L(LBUF) 


1359 

07E3 

31 


XPAL 

PI 


1360 

07E4 

90QE 

X 16: 

JMP 

X15 


1361 







1362 







1363 







1364 



> * 

EVAL — 

GET MEMORY 

CONTENTS * 

1365 



;**##*! 




1366 







1367 



i THIS 

ROUTINE 

IMPLEMENTS 

THE OPERATOR IN EXPRESSIONS 

1368 







1369 

07E6 

C410 

EVAL 

LDI 

H(AESTK) 


1370 

07E8 

37 


XPAH 

P3 


1371 

07E9 

C2FD 


LD 

LSTK(P2) 


1372 

07EB 

33 


XPAL 

P3 

; P3 -> ARITH STACK 

1373 

07EC 

C3FF 


LD 

-1<P3> 

i GET ADDR OFF STACK, 
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1374 

07EE 

35 


XPAH 

PI 


; AND INTO PI, 

1375 

07EF 

01 


XAE 



» SAVING OLD PI IN EX fc LO 

1376 

07F0 

C3FE 


LD 

-2<P3) 



1377 

07F2 

31 


XPAL 

PI 



1378 

07F3 

CAEF 


ST 

L0<P2) 



1379 

07F5 

Cl 00 


LB 

0<P1) 


; GET MEMORY CONTENTS, 

1380 

07F7 

CBFE 


ST 

-2<P3) 


; SHOVE ONTO STACK 

1381 

07F9 

C400 


LDI 

0 



1382 

07FB 

CBFF 


ST 

-1<P3) 


; HIGH ORDER 8 BITS ZEROED 

1383 

07FD 

C2EF 


LD 

L0<P2) 



1384 

07FF 

31 


XPAL 

PI 


>RESTORE ORIGINAL PI 

1385 

0800 

40 


LDE 




1386 

0801 

35 


XPAH 

PI 



1387 

0802 

90BO 


JMP 

X15 



1388 








1389 








1390 



************************************* 

1391 



* 

MOVE — 

STORE INTO MEMORY * 

1392 



***** 

******* 


**** 


1393 








1394 



THIS 

ROUTINE IMPLEMENTS 

THE 

STATEMENT: 

1395 




@ FACTOR •' = ' REL-EXP 


1396 








1397 

0804 

C410 

"10VE: 

LBI 

H< AESTK) 



1398 

0806 

37 


XPAH 

P3 



1399 

0807 

C2FD 


LD 

LSTK(P2) 



1400 

0809 

33 


XPAL 

P3 


;P3 -> ARITH STACK 

1401 

080A 

C7FE 


LD 

e-2(P3) 


;GET BYTE TO BE MOVED 

1402 

080C 

01 


XAE 




1403 

080D 

C7FF 


LD 

e-1<P3) 


;NOW GET ADDRESS INTO P3 

1404 

080F 

CAEA 


ST 

TEMP(P2) 



1405 

0811 

C7FF 


LD 

@-l<P3) 



1406 

0813 

33 


XPAL 

P3 



1407 

0814 

CAFD 


ST 

LSTK(P2) 


i STACK PTR UPDATED NOW 

1408 

0816 

C2EA 


LD 

TEMP < P2) 



1409 

0818 

37 


XPAH 

P3 



1410 

0819 

40 


LDE 




1411 

081A 

CB00 


ST 

0 (P3) 


iMOVE THE BYTE INTO MEMORY 

1412 

081C 

90C6 

X 1 7: 

JMP 

X 16 



1413 

081E 

90A6 

El 1 

JMP 

E10 



1414 








1415 



***** 

******* 


***« 


1416 



* 


TEXT EDITOR 


• 

1417 




******* 




1418 








1419 



INPUTS TO THIS ROUTINE POINTER TO LINE BUFFER IN P1L0U & 

1420 



PI HIGH. PI 

POINTS TO THE INSERTION POINT IN THE TEXT 

1421 



THE 

A. E. STACK HAS THE LINE 

NUMBER ON IT (STACK POINTER 

1422 



IS ALREADY 

-OPPED). 



1423 








1424 



EACH 

LINE IN 

THE NIBL TEXT IS 

STORED IN THE FOLLOWING 

1425 



FORMAT TWO 

BYTES CONTAINING 

THE LINE NUMBER (IN BINARY. 

1426 



HIGH 

ORDER 

BYTE FIRST), 

THEN 

ONE BYTE CONTAINING THE 

1427 



LENGTH OF THE LINE. AND 

FINALLY THE LINE ITSELF FOLLOWED 

1428 



BY A 

CARRIAGE RETURN THE LAST LINE IN THE TEXT IS 

142? 



FOLLOWED BY 

TWO CONSECUTIVE 

BYTES OF X'FF. 

1430 








1431 




. LOCAL 



1432 

0820 

C410 

INSRT. 

LDI 

H(AESTK) 


;POINT P3 AT AE STACK. 

1433 

0822 

37 


XPAH 

P3 


i WHICH HAS THE LINE # 

1434 

0823 

C2FD 


LD 

LSTK(P2) 


; ON IT 

1435 

0825 

33 


XPAL 

P3 



1436 

0826 

C301 


LD 

1 < P3) 


» SAVE NEW LINE'S NUMBER 

1437 

0828 

CAF7 


ST 

HILINE(P2) 



1438 

082A 

C300 


LD 

0 (P3) 



1439 

082C 

CAF8 


ST 

L0LINECP2) 



1440 

082E 

C2F1 


LD 

P1L0W(P2) 


, PUT POINTER TO LBUF INTO P3 

1441 

0330 

33 


XPAL 

P3 



1442 

0831 

C2F0 


LD 

P1HIGH < P2) 



1443 

0833 

37 


XPAH 

P3 



1444 

0834 

C404 


LDI 

4 


, INITIALLY LENGTH OF NEW LINE 

1445 

0836 

CAE7 


ST 

CHRNUM < F'2) 


; = 4 ADD 1 TO LENGTH FOR 

1446 

0838 

C701 

H 

LD 

ei(P3) 


j EACH CHAR IN LINE UP TO. BU 
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1447 

083A 

E40D 


XRI 

OD 

NOT INCLUDING, CARR. RETURN 

1448 

083C 

9804 


JZ 

42 


1449 

083E 

AAE7 


1 L0 

CHRNUM(P2) 


1450 

0840 

90F6 


JMP 

41 


1451 

0842 

C2E7 

♦2: 

LD 

CHRNUM< P2) 

IF LENGTH STILL 4, WE'LL DEL 

1452 

0844 

E404 


XRI 

4 

A LINE, SO SET LENGTH * 0 

1453 

0846 

9C02 


JNZ 

43 


1454 

0848 

CAE7 


ST 

CHRNUM< P2 > 


1455 

084A 

C2E7 

43: 

LD 

CHRNUM< P2) 

PUT NEW LINE LENGTH IN EX 

1456 

084C 

01 


XAE 



1457 

084D 

C2F2 


LD 

LABLHI<P2> 

IS NEW LINE REPLACING OLD? 

1458 

084F 

9406 


JP 

44 

YES - DO REPLACE 

1459 

0851 

D47F 


AN I 

07F 

NO - WE'LL INSERT LINE HERE, 

1460 

0853 

CAF2 


ST 

LABLHI<P2> 

WHERE FNDLBL GOT US. 

1461 

0855 

9013 


JMP 

4M0VE 

BUT FIRST MAKE ROOM 

1462 

0857 

0503 

44: 

LD 

S3( PI) 

SKIP LINE ft AND LENGTH 

1463 

0859 

40 


LDE 


EX, NOW HOLDING NEW LINE 

1464 

OSSA 

02 


COL 


LENGTH, WILL SOON HOLD 

1465 

0858 

F4FC 


ADI 

-4 

DISPLACEMENT OF LINES 

1466 

085D 

01 


XAE 


TO BE MOVED 

1467 

085E 

0501 

45: 

LD 

ei(Pl) 

SUBTRACT 1 FROM DISPLACEMENT 

1468 

0860 

E40D 


XRI 

OD 

FOR EACH CHAR IN LINE BEING 

1469 

0862 

9808 


JZ 

4M0VE 

REPLACED 

1470 

0864 

40 


LDE 



1471 

0865 

02 


COL 



1472 

0866 

F4FF 


ADI 

-1 


1473 

0868 

01 


XAE 



1474 

0869 

90F3 


JMP 

45 


1475 

0868 

90AF 

X19: 

JMP 

X 17 


1476 

086D 

90AF 

E12: 

JMP 

Ell 


1477 

086F 

40 

4M0VE 

LDE 


IF DISPLACEMENT AND LENGTH 

1478 

0870 

DAE7 


OR 

CHRNUM(P2) 

OF NEW LINE ARE 0, RETURN 

1479 

0872 

98F7 


JZ 

X19 


1480 

0874 

047A 


LDI 

L< DGSTAK) 

CLEAR SOME STACKS 

1481 

0876 

CAFF 


ST 

DOPTR(P2) 


1482 

0878 

C46A 


LDI 

L ( SBRSTK) 


1483 

087A 

CAFC 


ST 

SBRPTR(P2) 


1484 

087C 

048A 


LDI 

L(FORSTK) 


1485 

087E 

CAFE 


ST 

F0RPTR<P2) 


1486 

0880 

40 


LDE 



1487 

0881 

9860 


JZ 

4ADD 

DON'T NEED TO MOVE LINES 

1488 

0883 

9410 


JP 

4UP 

SKIP IF DISPLACEMENT POSITIV 

1489 

0885 

0100 

4DGWN 

LD 

0(P1) 

NEGATIVE DISPLACEMENT: 

1490 

0887 

0980 


ST 

EREG(P1) 

DO; 

1491 

0889 

0501 


LD 

Cl (PI) 

M(P1+0ISP> - M<P1); 

1492 

0888 

94F8 


JP 

4 DOWN 

PI - Pl+1; 

1493 

088D 

0100 


LD 

0(P1) 

UNTIL M(P1 )<0 It M(P1-1)<0; 

1494 

088F 

94F4 


JP 

4DGWN 


1495 

0891 

0980 


ST 

EREG(PI) 

MCP1+DISP) * M<PI)* 

1496 

0893 

904E 


JMP 

4ADD 


1497 

0895 

C1FE 

4UP 

LD 

-2(PI> 

POSITIVE DISPLACEMENT: 

1498 

0897 

CAEA 


ST 

TEMP(P2) 

FLAG BEGINNING OF MOVE WITH 

1499 

0899 

C4FF 


LDI 

-1 

A -1 FOLLOWED BY 80, WHICH 

1500 

089B 

C9FE 


ST 

-2(P1) 

CAN NEVER APPEAR IN A 

1501 

089D 

0450 


LDI 

80 

NIBL TEXT 

1502 

089F 

C9FF 


ST 

-1(PI) 


1503 

08A1 

0501 

4UP1: 

LD 

«kpi > 

ADVANCE PI TO END OF TEXT 

1504 

08A3 

94FC 


JP 

4 UP 1 


1505 

08A5 

0100 


LD 

0(P1) 


1506 

08A7 

94F8 


JP 

4UP1 


1507 

08A9 

35 


XPAH 

PI 

SAVE PI IN LO, HI 

1508 

08AA 

CAEE 


ST 

HI(P2) 


1509 

08AC 

35 


XPAH 

PI 


1510 

08AD 

31 


XPAL 

PI 


1511 

08AE 

CAEF 


ST 

L0(P2> 


1512 

0880 

31 


XPAL 

PI 


1513 

0881 

C2EF 


LD 

L0(P2> 

ADD DISPLACEMENT TO 

1514 

0883 

02 


CCL 


VALUE OF PI, TO CHECK 

1515 

08B4 

70 


ADE 


WHETHER WE'RE OUT OF 

1516 

08B5 

0400 


LDI 

0 

RAM FOR USER'S PROGRAM 

1517 

08B7 

F2EE 


ADD 

HI(P2) 


1518 

0889 

E2EE 


XOR 

HI(P2) 


1519 

08BB 

D4F0 


AN I 

OFO 
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1520 

OSBD 

9803 


JZ 

♦UP2 


1521 

08BF 

C400 


LDI 

0 i 

IF OUT OF RAM* CHANGE 

1522 

08C1 

01 


XAE 


DISPLACEMENT TO ZERO 

1523 

08C2 

C4FF 

♦UP2: 

LDI 

-1 


1524 

08C4 

C980 

♦UP3: 

ST 

EREG(Pl) ; 

MOVE TEXT UP UNTIL WE REACH 

1525 

08C6 

C5FF 


LD 

e-l(Pl) i 

THE FLAGS SET ABOVE 

1526 

0SC8 

94FA 


JP 

♦UP3 


1527 

08CA 

Cl 01 


LD 

1 (PI) 


1528 

08CC 

E450 


XRI 

80 


1529 

08CE 

9804 


JZ 

♦UP 4 


1530 

08D0 

Cl 00 


LD 

0<P1 ) 


1531 

08D2 

90F0 


JNP 

♦UP3 


1532 

08D4 

C2EA 

♦UP4 

LD 

TEMP(P2) 

RESTORE THE FLAGGED LOCATION 

1533 

08B6 

C900 


ST 

0(P1> 

TO THEIR ORIGINAL VALUES 

1534 

08D8 

C40D 


LDI 

OD 


1535 

08DA 

C901 


ST 

1 (PI ) 


1536 

08DC 

40 


LDE 


IF DISPLACEMENT =0* WE'RE 

1537 

08BD 

9C04 


JNZ 

♦ADD 

OUT OF RAM, SO REPORT ERROR 

1538 

08DF 

C402 


LDI 

2 


1539 

08E1 

908A 

E12A: 

JMP 

E12 


1540 

08E3 

C2E7 

♦ADD: 

LD 

CHRNUM(P2) 

INSERT NEW LINE 

1541 

08E5 

9884 

X 19A: 

JZ 

X19 

UNLESS LENGTH IS ZERO 

1542 

08E7 

C2F1 


LD 

PILOW(P2) 

POINT PI AT LINE BUFFER 

1543 

08E9 

31 


XFAL 

PI 


1544 

08EA 

C2F0 


LD 

P1HIGH(P2) 


1545 

08EC 

35 


XPAH 

PI 


1546 

08EB 

C2F3 


LD 

LABLLO< P2) 

POINT P3 AT INSERTION PLACE 

1547 

08EF 

33 


XPAL 

P3 


1548 

08F0 

C2F2 


LD 

LABLHI(P2) 


1549 

08F2 

37 


XPAH 

P3 


1550 

08F3 

C2F7 


LD 

HILINE(P2) 

PUT LINE NUMBER INTO TEXT 

1551 

08F5 

CFO 1 


ST 

@1<P3) 


1552 

08F7 

C2F8 


LD 

LOLINE(P2) 


1553 

08F9 

CF01 


ST 

81(P3) 


1554 

08FB 

C2E7 


LD 

CHRNUM<P2) 

STORE LINE LENGTH IN TEXT 

1555 

08FD 

CF01 


ST 

81(P3) 


1556 

08FF 

C501 

♦ADD1: 

LD 

81 (PI ) 

PUT REST OF CHARS 

1557 

0901 

CFO 1 


ST 

81(P3) 

(INCLUDING CR) INTO TEXT 

1558 

0903 

E40D 


XRI 

OD 


1559 

0905 

9CF8 


JNZ 

♦ADD1 


1560 

0907 

90DC 


JMP 

X 19A 

RETURN 

1561 

0909 

C400 

X 20 : 

JS 

P3.EXECIL 


1562 

0910 

90CF 

E13: 

JMP 

E12A 


1563 







1564 







1565 



i ***** 



***** 

1566 



i * 

POP ARITHMETIC: STACK 

* 

1567 



;***** 




1568 







1569 

0912 

BAFD 

POPAE 

DLD 

LSTK(P2) 

THIS ROUTINE POP THE A. E. 

1570 

0914 

BAFD 


DLD 

LSTK(P2) 

STACK, AND PUTS THE RESULT 

1571 

0916 

33 


XPAL 

P3 

INTO L0(P2> AND HI(P2) 

1572 

0917 

C410 


LDI 

H(AESTK) 


1573 

0919 

37 


XPAH 

P3 


1574 

091A 

C300 


LD 

<P3) 


1575 

091C 

CAEF 


ST 

L0< P2 > 


1576 

09 IE 

C301 


LD 

1 (P3) 


1577 

0920 

CAEE 


ST 

HI(P2) 


1578 

0922 

90E5 


JMP 

X 20 


1579 







1580 







1581 



i***** 

*«««««•«< 



1582 



« * 


UNTIL 

* 

1583 






««•**• 

1584 







1585 




LOCAL 



1586 

0924 

C2FF 

UNTIL: 

LD 

D0PTR(P2) 

i CHECK FOR DO-STACK UNDERFLOW 

1587 

0926 

01 


XAE 



1588 

0927 

40 


LDE 



1589 

0928 

E47A 


XRI 

L < DOSTAK) 


1590 

092A 

9C04 


JNZ 

$1 


1591 

092C 

C4QF 


LDI 

IS 


1592 

092E 

90E0 


JMP 

E13 


1593 

0930 

C2EF 

tl 

LD 

L0(P2) 

i CHECK FOR EXPRESSION • 0 
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1594 0932 DAEE 

1595 0934 9806 

1596 0936 BAFF 

1597 0938 BAFF 

1598 093A 90CD 

1599 093C 40 

1600 093D 33 

1601 093E 0410 

1602 0940 37 

1603 0941 C3FF 

1604 0943 35 

1605 0944 C3FE 

1606 0946 31 

1607 0947 9OC0 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 0949 C2EF 

1618 094B D4F7 

1619 094D 07 

1620 094E 90139 

1621 0950 90BE 

1622 

1623 

1624 

1625 

1626 

1627 

1628 0952 C410 

1629 0954 37 

1630 0955 AAFD 

1631 0957 AAFD 

1632 0959 33 

1633 095A 06 

1634 095B CBFE 

1635 095D C400 

1636 095F CBFF 

1637 0961 90EB 

1638 

1639 

1640 

1641 

1642 

1643 

1644 
J645 

1646 0963 C2EE 

1647 0965 37 

1648 0966 C2EF 

1649 0968 33 

1650 0969 C7FF 

1651 096B 3F 

1652 096C 

1653 0972 90DA 

1654 

1655 

1656 
: 1657 

1658 

1659 

1660 
1661 
1662 

1663 0974 C2FF 

1664 0976 E4SA 

1665 0978 9C04 

1666 097A C40A 

1667 097C 90D2 


OR 

HI<P2) 


JZ 

♦REDO 

.IF ZERO. REPEAT DO-LOOP 

OLD 

DOFTR < P2) 

i ELSE POP SAVE STACK 

DLD 

D0PTR(P2) 


JMP 

X 20 

i CONTINUE to NEXT STMT 

♦REDO LDE 


.POINT P3 AT DO-STACK 

XPAL 

P3 


LDI 

H(DOSTAK) 


XPAH 

P 3 


LD 

-1< P3> 

. LOAD PI FROM DO STACK 

XPAH 

PI 


LD 

-2<P3) 


XPAL 

PI 

i CURSOR NOW POINTS TO FIRST 

JMP 

X 20 

. STATEMENT OF DO-LOOP 


, * 

,**#**« 

STORE 

r*#*«*4 

INTO STATUS 

###♦*##***♦♦♦ 

REGISTER ♦ 



; THIS 

ROUTINE IMPLEMENTS 

THE STATEMENT: 




STAT" 

REL-EXP 




MOVESP 

LD 

L0(P2) 

(LOW BYTE GOES 

TO 

STATUS 


ANI 

OF 7 

i BUT WITH IEN 

BIT 

CLEARED 


CAS 





X21 

JMP 

X 20 




E14 

JMP 

El 3 





>************##*#***«**#**####♦##*#### 

> * 

STAT 

FUNCTION 

♦ 

> **#***#**###*##*** ################### 

STATUS: 

LDI 

H(AESTK) 



XPAH 

P3 

i POINT P3 AT AE STACK 


ILD 

LSTK( P2 ) 



ILD 

LSTMP2) 



XPAL 

CSA 

P3 



ST 

-2(P3> 

> STATUS REO IS LOW BYTE 


LDI 

0 



ST 

-1(P3> 

, ZERO IS HIGH BYTE 


JMP 

X21 


, 4444444444444444444444444444444444444 


-* MACHINE 

LANGUAGE SUBROUTINE • 


>•»»*»#***»#**«»##*« 44444444444444444# 


; THIS ROUTINE 

IMPLEMENTS THE LINK" STATEMENT 


CALLML LD 

HI(P2) 

GET HIGH BYTE 

OF ADDRESS 

XPAH 

P3 



LD 

L0< P2 > 

GET LOW BYTE 


XPAL 

P3 

P3 -> USER'S 

ROUTINE 

LD 

e-1(P3) 

CORRECT P3 


XPPC 

P3 

CALL ROUTINE 

(PRAY IT WORKS 

LDP I 

P2. VARS 

RESTORE RAM POINTER 

JMP 

X21 

RETURN 



■, ************************************* 


i * 

SAVE 

DO LOOP ADDRESS 

• 

; if************************************ 

i THIS 

ROUTINE 

IMPLEMENTS THE ' 

DO" STATEMENT. 


. LOCAL 



SAVEDO 

LD 

DuPTR(P2) 

• CHECK FOR STACK OVERFLOW 


XRI 

L < FORSTK) 



JN2 

♦ 1 



LDI 

10 


E15: 

JMP 

E14 
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1668 

097E 

AAFF *1 

ILD 

DOPTR(P2) 


1669 

0980 

AAFF 

ILD 

D0PTR(P2> 


1670 

0982 

33 

XRAL 

P3 


1671 

0983 

C410 

LDI 

H < DOSTAK) 


1672 

0985 

37 

XF'AH 

P3 

P3 -> TOP OF DO STACK 

1673 

0986 

35 

XPAH 

PI 

SAVE CURSOR ON THE STACK 

1674 

0987 

CBFF 

ST 

-KPS) 


1675 

0989 

35 

XPAH 

P1 


1676 

098A 

31 

XF'AL 

PI 


1677 

098B 

CBFE 

ST 

-2(P3) 


1678 

098D 

31 

XRAL 

PI 


1679 

09SE 

90BE X22: 

JMP 

X21 


1680 

1681 

1682 


i ************************************* 

1683 


> * 

TOP 

OF RAM FUNCTION 

* 

1684 


;****** 




1685 

1686 
1687 

0990 

C2E9 TOP 

. LOCAL 

LD TEMP2CP2) 

SET P3 TO POINT TO 

1688 

0992 

37 

XPAH 

P3 

START OF NIBL TEXT 

1689 

0993 

C2E8 

LD 

TEMP3(P2) 


1690 

0995 

33 

XPAL 

P3 


1691 

0996 

C300 *0: 

LD 

<P3> 

HAVE WE HIT END OF TEXT? 

1692 

0998 

9402 

JR 

41 

NO - SKIP TO NEXT LINE 

1693 

099A 

9007 

JMP 

42 

YES - PUT CURSOR ON STACK 

1694 

099C 

C302 41 

LD 

2 (P3) 

GET LENGTH OF LINE 

1695 

1696 

099E 

099F 

01 

C7S0 

XAE 

LD 

6EREG(P3) 

SKIP TO NEXT LINE 

1697 

09A1 

90F3 

JMP 

40 

GO CHECK FOR EOF 

1698 

09 A3 

C702 $2: 

LD 

@2 < P3> 

P3 := P3 + 2 

1699 

09A5 

AAFD 

ILD 

LSTK(P2) 

SET P3 TO STACK. SAVING 

1700 

09A7 

AAFD 

ILD 

LSTK < P2) 

OLD P3 (WHICH CONTAINS TOP) 

1701 

09A9 

33 

XPAL 

P3 

ON IT SOMEHOW 

1702 

1703 

09AA 

09AB 

01 

C410 

XAE 

LDI 

H(AESTK) 


1704 

09AD 

37 

XPAH 

P3 


1705 

09AE 

CBFF 

ST 

-1 (P3) 


1706 

1707 

09B0 
09B1 

40 

CBFE 

LDE 

ST 

-2(P3) 


1708 

09B3 

90D9 

JMP 

X22 


1709 

1710 

1711 


i **********<************************** 

1712 


i * 

SKIP 

TO NEXT NIBL LINE 

• 

1713 


> ****** 


******************'i 


1714 

1715 

09B5 

C501 IGNORE 

LD 

ei< pi> 

SCAN TIL WE'RE PAST 

1716 

09B7 

E40D 

XRI 

OD 

CARRIAGE RETURN 

1717 

09B9 

9CFA 

JNZ 

IGNORE 


1718 

09BB 

3F 

XPPC 

P3 

YES - RETURN 


1719 

1720 

1721 , ************************************* 

1722 , * MODULO FUNCTION * 

1723 i ************************************* 

1724 


1725 

09BC 

C2FD 

MODULO: 

LD 

LSTK < P2) 

> THIS ROUTINE MUST BE 

1726 

09 BE 

33 


XPAL 

P3 

; IMMEDIATELY AFTER A 

1727 

09BF 

C410 


LDI 

H < AESTK) 

; DIVIDE TO WORK CORRECTLY 

1728 

09C1 

37 


XPAH 

P3 


1729 

09C 

2 

C303 


LD 

3 (F’3) 

,GET LOW BYTE OF REMAINDER 

1730 

09C 

4 

CBFE 


ST 

-2(P3) 

. PUT ON STACK 

1731 

09C 

6 

C 302 


LD 

2 < P3) 

.GET HIGH BYTE OF REMAINDER 

1732 

09C 

o 

CBFF 


ST 

-1 (P3) 

,PUT ON STACK 

1733 

09C 

A 

90 C 2 

X23: 

JMP 

X22 


1734 

09C 

C 

90 AE 

E16 

•JMF' 

E 15 



1735 

1736 

1737 ,************************************* 

1738 , * RANDOM FUNCTION * 

1739 , ************************************* 
1 740 

1741 LOCAL 
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1742 

09CE 

C40S 

RANDOM 

LDI 

8 

i LOOP COUNTER FOR MULTIPLY 

1743 

09 DO 

CAEB 


ST 

NUM (F‘2) 


1744 

09 D 2 

C2E5 


LD 

RNDX <P2> 


1745 

09D4 

01 


XAE 



1746 

09 D5 

C2E4 


LD 

RNDY(P2) 


1747 

09D7 

CAE9 


ST 

TEMP2 < P2 > 


1743 

0909 

C2E5 

♦LOOP 

LD 

RNDX <P2) 

.MULTIPLY THE SEEDS BY 9 

1749 

09 DB 

02 


CCL 



1750 

09DC 

70 


ADE 



1751 

09 DD 

01 


XAE 



1752 

09DE 

C2E4 


LD 

RNDY < P2) 


1753 

09E0 

02 


CCL 



1754 

09E1 

F2E9 


ADD 

TEMP2(P2) 


1755 

09E3 

CAE 4 


ST 

RNDY < F'2) 


1756 

09E5 

BAEB 


DLD 

NUM(P2) 


1757 

09 E 7 

9CF0 


•JNZ 

♦LOOP 


1753 

09E9 

40 


LDE 


.ADD 7 TO SEEDS 

1759 

09EA 

02 


CCL 



1760 

09EB 

F 407 


ADI 

7 


1761 

09ED 

01 


XAE 



1762 

09EE 

C2E4 


LD 

RNDY(P2) 


1763 

09F0 

02 


CCL 



1764 

09 F1 

F407 


ADI 

7 


1765 

09F3 

IE 


RR 



1766 

09 F 4 

CAE 4 


ST 

RNDY (F‘2) 


1767 

09F 6 

AAE6 


ILD 

RNDF (F’2) 

. HAVE WE GONE THROUGH 

1763 

09FS 

9803 


JZ 

♦ 1 

. 256 GENERATIONS? 

1769 

09FA 

40 


LDE 


,IF SO, SKIP GENERATING 

1770 

09FB 

CAE 5 


ST 

RNDX (F‘2 > 

, THE NEW RNDX 

1771 

09 FD 

C2FD 

♦ 1 

LD 

LSTK <F‘2) 

.START MESSING WITH THE STACK 

1772 

09FF 

33 


XPAL 

P3 


1773 

OAOO 

C410 


LDI 

H< AESTK) 


1774 

0A02 

37 


XPAH 

P3 


1775 

0AO3 

C401 


LDI 

1 

.FIRST PUT 1 ON STACK 

1776 

0A05 

CBOO 


ST 

< P3) 


1777 

0A07 

C400 


LDI 

0 


1778 

0A09 

CB01 


ST 

1 (P3) 


1779 

OAOB 

C3FE 


LD 

-2 (F’3) 

,PUT EXPR2 ON STACK 

1780 

OAOD 

CB02 


ST 

2 < P3) 


1731 

OAOF 

C3FF 


LD 

-1(P3) 


1782 

0A1 1 

CB03 


ST 

3 < P3) 


1783 

0A13 

C3FC 


LD 

-4 < P3) 

.PUT EXPR1 ON STACK 

1784 

OA15 

CB04 


ST 

4 < P3) 


1785 

0A1 7 

C3FD 


LD 

-3(P3) 


1736 

OA 19 

CB05 


ST 

5 (P3) 


1787 

OA 1B 

C2E4 


LD 

RNDY (F‘2) 

.PUT RANDOM # ON STACK 

1783 

OA 1D 

CBFE 


ST 

-2<P3) 


1789 

0A1F 

C2E5 


LD 

RNDX (F‘2) 


1790 

0A21 

E4FF 


XRI 

OFF 


1791 

0A23 

D47F 


AN I 

07F 


1792 

0A25 

CBFF 


ST 

-1<P3) 


1793 

0A27 

C706 


LD 

@6 (P3) 

.ADD 6 TO STACK POINTER 

1794 

0A29 

33 


XPAL 

F’3 


1795 

0A2A 

CAFD 


ST 

LSTK < F‘2) 


1796 

0A2C 

909C 

X24 

JMP 

X23 


1797 

0A2E 

909C 

E16A 

JMP 

E16 


1798 







1799 







1800 



. ****** 

****** 

****«««*»*«**«« 

********** 

1301 



, * 

PUSH 1 

ON ARITHMETIC 

STACK * 

1302 



,«««««< 

****** 

*************** 

********** 

1803 







1304 

0A30 

AAFD 

LIT 1 

ILD 

LSTK(P2) 


1805 

0A32 

AAFD 


ILD 

LSTK < P2) 


1806 

0A34 

33 


XPAL 

P3 


1807 

0A35 

C 410 


LDI 

H<AESTK) 


1808 

0A37 

37 


XPAH 

P3 


1809 

0A38 

C 400 


LDI 

0 


1810 

0A3A 

CBFF 


ST 

-1<P3) 


1811 

0A3C 

C401 


LDI 

1 


1812 

0A3E 

CBFE 


ST 

-2 (F'3) 


1813 

0A40 

90EA 


JMP 

X24 



1814 

1815 
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1816 



,************************************* 

1817 



, * 

FOR-LOOP INITIALIZATION 

• 

1818 



, #»#### 

******************************* 

181? 







1820 




LOCAL 



1821 

0A42 

C2FE 

SAVFOR 

LD 

FORF'TR (P2) 

CHECK FOR FOR STACK 

1822 

0A44 

E4A6 


XRI 

L(PCSTAK) 

OVERFLOW 

1823 

0A46 

9C04 


JNZ 

*1 


1824 

0A48 

C40A 


LDI 

10 


1825 

0A4A 

90E2 

El 7 

JMP 

E16A 


1826 

0A4C 

E4A6 

*1 

XRI 

L(PCSTAK) 


1827 

0A4E 

31 


XPAL 

PI 

POINT PI AT FUR STACK 

1828 

0A4F 

CAF1 


ST 

P1L0W < P2) 

SAVING OLD PI 

182‘5 

0A51 

C410 


LDI 

H(FORSTK) 


1830 

0A53 

35 


XPAH 

PI 


1831 

0A54 

CAFO 


ST 

P1HIGH(P2) 


1832 

0A56 

C2FD 


LD 

LSTk< P2 > 

POINT P3 AT AE STACK 

1833 

0A58 

33 


XPAL 

P3 


1834 

0A59 

C410 


LDI 

H(AESTK) 


1835 

0A5B 

37 


XPAH 

P3 


1836 

0A5C 

C3F9 


LD 

-7<P3> 

GET VARIABLE INDEX 

1837 

0A5E 

CD01 


ST 

e 1 (P1) 

SAVE ON FOR-STACK 

1838 

0A60 

C3FC 


LD 

-4(P3) 

GET L(LIMIT) 

1839 

0A62 

CDO1 


ST 

ei (PI) 

SAVE 

1840 

0A64 

C3FD 


LD 

-3(P3) 

GET H(LIMIT) 

1841 

0A66 

CDO 1 


ST 

e i ( p i) 

SAVE 

1842 

0A68 

C3FE 


LD 

-2(P3) 

GET L< STEP) 

1843 

0A6A 

CDO 1 


ST 

@1<P1) 

SAVE 

1844 

0A6C 

C3FF 


LD 

-1(P3) 

GET H(STEP) 

1845 

0A6E 

CDO 1 


ST 

@1(PI) 

SAVE 

1846 

0A70 

C2F1 


LD 

P1L0W< P2) 

GET L<PI) 

1847 

0A72 

CDO 1 


ST 

ei(Pi) 

SAVE 

1848 

0A7 4 

C2F0 


LD 

P1HIOH(P2) 

GET H<PI) 

184? 

0A76 

CD01 


ST 

@1(PI) 

SAVE 

1850 

0A78 

35 


XPAH 

PI 

RESTORE OLD PI 

1851 

0A79 

C2F1 


LD 

P1 LOW (F'2> 


1852 

0A7B 

31 


XPAL 

PI 


1853 

0A7C 

CAFE 


ST 

F0RPTR(P2> 

UPDATE FOR STACK PTR 

1854 

0A7E 

C7FC 


LD 

@-4<P3> 


1855 

0A80 

33 


XPAL 

P3 


1856 

0A81 

CAFD 


ST 

LSTK < P2) 

UPDATE AE STACK PTR 

1857 

0A83 

90A7 

X25: 

JMP 

X24 


1858 







185? 







1860 



, *************************************** 

1861 



> * 

FIRST PART OF NEXT VAR' 

» 

1862 



, *#*■**■#•****# ****** ********************* 

1863 







1864 




. LOCAL 



1865 

0A85 

C2FE 

NEXTV: 

LD 

FORPTR(P2) 

POINT PI AT FOR STACK, 

1866 

0A87 

E43A 


XRI 

L<FORSTK) 

CHECKING FOR UNDERFLOW 

1867 

0A89 

9C04 


JNZ 

• 1 


1868 

0A8B 

C40B 


LDI 

11 

REPORT ERROR 

1869 

0A8D 

90BB 


JMP 

E17 


1870 

0A8F 

E43A 

*1 

XRI 

L<FORSTK) 


1871 

0A91 

31 


XPAL 

PI 


1872 

0A92 

CAF 1 


ST 

P1L0WCP2) 

SAVE OLD PI 

1873 

0A94 

C410 


LDI 

H<FORSTK) 


1874 

0A96 

35 


XPAH 

P1 


1875 

0A97 

CAFO 


ST 

PI HIGH < P2) 


1876 

0A9? 

C2FD 


LD 

LSTK( P2 ) 

; POINT P3 AT AE STACK 

1877 

0A9B 

33 


XPAL 

P3 


1878 

0A9C 

C410 


LDI 

H<AESTK) 


187? 

0A9E 

37 


XPAH 

P3 


1880 

0A9F 

C7FF 


LD 

&-KP3) 

i GET VARIABLE INDEX 

1881 

0AA1 

E1F9 


XOR 

-7 (PI ) 

; COMPARE WITH INDEX 

1882 

0AA3 

9804 


JZ 

• 10 

i ON FOR STACK: ERROR 

1883 

0AA5 

C40C 


LDI 

12 

; IF NOT EQUAL 

1884 

0AA7 

90A1 

E18: 

JMP 

El 7 


1885 

0AA9 

E1F9 

• 10: 

XOR 

—7< PI) 

i RESTORE INDEX 

1886 

OAAB 

01 


XAE 


i SAVE IN EREG 

1887 

OAAC 

C280 


LD 

EREG(P2) 

# GET L(VARIABLE) 

1888 

OAAE 

02 


CCL 



1889 

OAAF 

F1FC 


ADD 

—4 < P 1) 

;ADD L < STEP ) 






NIBL 


217 


1890 

0AB1 

CA80 


ST 

EREG(P2) 

STORE IN VARIABLE 

1891 

0AB3 

CBOO 


ST 

(P3) 

AND ON STACK 

1892 

0AB5 

C601 


LD 

@1 <P2) 

INCREMENT RAM PTR 

1893 

CAB 7 

C280 


LB 

EREG1P2) 

GET H(VARIABLE) 

1894 

0AB9 

FIFO 


ADD 

-3< PI) 

ADD H(STEP) 

1895 

GABES 

CABO 


ST 

EREG(P2) 

STORE IN VARIABLE 

1896 

OABB 

CBOl 


ST 

1 (P3) 

AND ON STACK 

1897 

OABF 

C6FF 


LD 

1 < P2 > 

RESTORE RAM POINTER 

1898 

0AC1 

Cl FA 


LD 

-6(PI) 

GET L(LIMIT) 

1899 

0AC3 

CB02 


ST 

2 ( P 3 ) 

PUT ON STACK 

1900 

0AC5 

C1FB 


LD 

-5(P1) 

GET H(LIMIT) 

1901 

0AC7 

CB03 


ST 

3 (P3) 

PUT ON STACK 

1902 

0AC9 

C1FD 


LD 

-3(PI) 

GET H(STEP) 

1903 

OACB 

9410 


JP 

♦2 

IF NEGATIVE, INVERT 

1904 

OACD 

C404 


LDI 

4 

ITEMS ON A E. STACK 

1905 

OACF 

CAEB 


ST 

NUM (P2) 

NUM * LOOP COUNTER 

1906 

0AD1 

C701 

♦LOOP: 

LD 

81 (P3) 

GET BYTE FROM STACK 

1907 

0AD3 

E4FF 


XRI 

OFF 

INVERT IT 

1908 

0AD5 

CBFF 


ST 

-1(P3) 

PUT BACK ON STACK 

1909 

0AD7 

BAEB 


DLD 

NUM(P2) 

DO UNTIL NUM « 0 

1910 

0AD9 

9CF6 


JNZ 

♦LOOP 


1911 

OADB 

9002 


JMP 

♦3 


1912 

OADD 

C704 

♦2: 

LD 

®4(P3) 

UPDATE AE STACK POINTER 

1913 

OADF 

33 

♦3: 

XPAL 

P3 


1914 

OAEO 

CAFD 


ST 

LSTK(P2) 


1915 

0AE2 

C2F1 


LD 

P1L0W(P2) 

RESTORE OLD PI 

1916 

0AE4 

31 


XPAL 

PI 


1917 

0AE5 

C2F0 


LD 

P1HIGH(P2) 


1918 

0AE7 

35 


XF'AH 

PI 


1919 

0AE8 

9099 

X26: 

JMP 

X25 


1920 







1921 







1922 



i***********»»**•********•«*******•»»« 

1923 



i * 

SECOND 

PART OF "NEXT VAR" 

* 

1924 



;************************************* 

1925 







1926 

OAEA 

C2EF 

NEXTV1 

LD 

L0(P2) 

IS FOR-LOOP OVER WITH? 

1927 

OAEC 

9808 


JZ 

♦REDO 

NO - REPEAT LOOP 

1928 

OAEE 

C2FE 


LD 

FORPTR(P2) 

YES - POP FOR-STACK 

1929 

OAFO 

02 


CCL 



1930 

OAF 1 

F4F9 


ADI 

-7 


1931 

OAF 3 

CAFE 


ST 

FORPTR(P2) 


1932 

OAFS 

3F 


XPPC 

P3 

RETURN TO I. L. INTERPRETER 

1933 

0AF6 

C2FE 

♦REDO 

LD 

FORPTR(P2) 

POINT P3 AT FOR STACK 

1934 

OAF 8 

33 


XPAL 

P3 


1935 

OAF 9 

C410 


LDI 

H(FORSTK) 


1936 

OAFB 

37 


XPAH 

P3 


1937 

OAFC 

C3FF 


LD 

-1(P3) 

OET OLD PI OFF STACK 

1938 

OAFE 

35 


XPAH 

PI 


1939 

OAFF 

C3FE 


LD 

-2<P3) 


1940 

0B01 

31 


XPAL 

PI 


1941 

0B02 

90E4 


JMP 

X26 


1942 

0B04 

90A1 

E19: 

JMP 

E18 


1943 







1944 







1945 



» ««»***»*«»***«******«* # «**«* #### , ### 

1946 



, * 

PRINT 

1EM0RV AS STRING 

* 

1947 



i ***** 

»*«****» 



1948 







1949 



* THIS 

ROUTINE 

IMPLEMENTS THE STATEMENT: 

1950 



i 

PRINT 

♦' FACTOR 


1951 







1952 




. LOCAL 



1953 

0B06 

C2EE 

PSTRNG 

LD 

HI(P2> 

POINT PI AT STRING TO PRINT 

1954 

0B08 

35 


XPAH 

PI 


1955 

0B09 

C2EF 


LD 

L0(P2) 


1956 

OBOB 

31 


XPAL 

PI 


1957 

OBOC 



LDP I 

P3*PUTC-1 

POINT P3 AT PUTC ROUTINE 

1958 

OBI 2 

C501 

♦ 1: 

LD 

«1 (PI) 

GET A CHARACTER 

1939 

OBI 4 

E40B 


XRI 

OD 

IS IT A CARRIAGE RETURN? 

1960 

OBI 6 

98B0 


JZ 

X26 

YES - WE"RE DONE 

1961 

OB 18 

E40D 


XRI 

OD 

NO - PRINT THE CHARACTER 

1962 

OBI A 

3F 


XPPC 

P3 
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1963 

OB IB 

06 

CSA 



iMAKE SURE NO ONE IS 

1964 

OB 1C 

D420 

AN I 

020 


; TYPING ON THE TTY 

1965 

OB IE 

9CF2 

JNZ 

• 1 


; BEFORE REPEATING LOOP 

1966 

0B20 

90C6 

JMP 

X26 



1967 







1968 







1969 



************** 


***** 


1970 



* INPUT 

A STRING 


* 

1971 



it*********************************** 

1972 







1973 



THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT: 

1974 



' INPUT' - 

%' FACTOR 



1975 







1976 

OB22 

C2EE 

ISTRNG; LD 

HI(P2> 


.GET ADDRESS TO STORE THE 

1977 

0B24 

37 

XPAH 

P3 


i STRING. PUT IT INTO P3 

1978 

0B25 

C2EF 

LD 

L0<P2) 



1979 

0B27 

33 

XPAL 

P3 



1980 

0B28 

C501 *2: LB 

ei (Pi) 


i GET A BYTE FROM LINE BUFFER 

1981 

0B2A 

CF01 

ST 

«1<P3> 


• PUT IT IN SPECIFIED LOCATION 

1982 

0B2C 

E40B 

XRI 

OD 


i DO UNTIL CHAR = CARR. RETURN 

1983 

0B2E 

9CF8 

JNZ 

*2 



1984 

OB 30 

90B6 

X27 JMP 

X26 



1985 







1986 







1987 



************************************ 

1988 



* STRING CONSTANT ASSIGNMENT * 

1989 



************************************ 

1990 







1991 



THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT: 

1992 



• FACTOR = STRING 


1993 







1994 



LOCAL 




1995 

OB 3 2 

C2EF PUTSTR: LD 

Lu(P2) 


. GET ADDRESS TO STORE STRING. 

1996 

0B34 

33 

XPAL 

P3 


; PUT IT INTO P3 

1997 

OB 35 

C2EE 

LD 

HI<P2> 



1998 

0B37 

37 

XPAH 

P3 



1999 

OB 38 

C501 

•LOOP LD 

@1(PI) 


,GET A BYTE FROM STRING 

2000 

OB 3 A 

E422 

XRI 



i CHECK FOR END OF STRING 

2001 

0B3C 

98 OE 

JZ 

•END 



2002 

0B3E 

E42F 

XRI 

* OD 


>MAKE SURE THERE'S NO CR 

2003 

OB 40 

9C04 

JNZ 

• 1 



2004 

0B42 

C407 

LDI 

7 



2005 

0B44 

90BE 

JMP 

E19 


;ERROR IF CARRIAGE RETURN 

2006 

0B46 

E40D 

*1 XRI 

OD 


,RESTORE CHARACTER 

2007 

OB 4 8 

CF01 

ST 

@1(P3) 


i PUT IN SPECIFIED LOCATION 

2008 

0B4A 

90EC 

JMP 

•LOOP 


;GET NEXT CHARACTER 

2009 

0B4C 

C40D 

•END LD I 

OD 


;APPEND CARRIAGE RETURN 

2010 

0B4E 

CEfdO 

ST 

(P3) 


i TO STRING 

2011 

OB 50 

90BE 

JMP 

X27 



2012 







2013 







2014 



**********»»****«**»••****«*****«•»« 

2015 



* MOVE STRING 


* 

2016 



**************•****•«*•*•••***#»*•»« 

2017 







2018 



THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT 

2019 



* FACTOR - = '• '%' 

FACTOR 

2020 







2021 



LOCAL 




2022 

0652 

C2FD 

10VSTR LD 

LSTK(P2) 


,POINT P3 AT A E STACK 

2023 

0B54 

33 

XPAL 

P3 



2024 

0B55 

C410 

LDI 

H(AESTK) 



2025 

0B57 

37 

XPAH 

P3 



2026 

0B5© 

C7FF 

LD 

e-i(P3> 


. GET ADDRESS OF SOURCE STRING 

2027 

0B5A 

35 

XPAH 

pi 


; INTO PI 

2028 

0B5B 

C7FF 

LD 

e-i<P3) 



2029 

0B5B 

31 

XPAL 

pi 



2030 

0B5E 

C7FF 

LD 

e-i <P3) 


.GET ADDRESS OF DESTINATION 

2031 

0B60 

01 

XAE 



> STRING INTO P3 

2032 

0B61 

C7FF 

LD 

e-i<P3> 



2033 

0B63 

33 

XPAL 

P3 



2034 

0B64 

CAFD 

ST 

LSTK(P2) 


;UPDATE STACK POINTER 

2035 

0B66 

40 

LDE 
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2036 

0B67 

37 

2037 

0B68 

C501 

2038 

0B6A 

CFOl 

2039 

0B6C 

E40D 

2040 

0B6E 

9SC0 

2041 

0B70 

06 

2042 

0B71 

D420 

2043 

0B73 

9CF3 

2044 

0B75 

90B9 

2045 



2046 



2047 



2048 



2049 



2050 



2051 

OB77 

AAFD 

2052 

0B79 

AAFD 



XPAH 

P3 



•LOOP: 

LD 

ei (Pi) 

> GET A SOURCE 

CHARACTER 


ST 

®1<P3) 

.SEND IT TO DESTINATION 


XRI 

OD 

;REPEAT UNTIL 

CARRIAGE I 


JZ 

X27 




CSA 


; OR KEYBOARD 

INTERRUPT 


AN I 

020 




JNZ 

•LOOP 




JMP 

X27 




,************************************ 
* * PUT PAGE NUMBER ON STACK * 
> ***********•«**«•**««***»«*««•«***** 

PUTPGE: ILD LSTK<P2) 

ILD LSTK< P2) 


20z>3 

0B7B 

33 

2054 

0B7C 

C410 

2055 

0B7E 

37 

2056 

0B7F 

C2F6 

2057 

0B81 

CBFE 

2058 

0B83 

C400 

2059 

0B85 

CBFF 

2060 

0B87 

90A7 

2061 



2062 



2063 



2064 



2065 



2066 



2067 



2068 

0B89 

C2EF 

2069 

0B8B 

D407 

2070 

0B8D 

9C02 

2071 

0B8F 

C401 

2072 

0B91 

CAF6 

2073 

0B93 

3F 

2074 



2075 



2076 



2077 



2078 



2079 



2080 



2081 



2082 



2083 



2084 

0B94 

C2F6 

2085 

0B96 

E401 

2086 

0B98 

9C09 

2087 

0B9A 

C411 

2088 

0B9C 

CAE9 

2089 

0B9E 

C420 

2090 

OBAO 

CAE8 

2091 

0BA2 

3F 

2092 

0BA3 

m 

o 

2093 

0BA5 

01 

2094 

0BA6 

C404 

2095 

0BA8 

CAEB 

2096 

OBAA 

40 

2097 

OBAB 

02 

2098 

OBAC 

70 

2099 

OBAD 

01 

2100 

OBAE 

BAEB 

2101 

OBBO 

9CF8 

2102 

0BB2 

40 

2103 

0BB3 

CAE9 

2104 

OBBS 

C402 

2105 

0BB7 

CAE 8 

2106 

0BB9 

3F 

2107 



2108 




XPAL 

P3 

LDI 

H<AESTK) 

XPAH 

P3 

LD 

PAGE(P2 ) 

ST 

-2<P3> 

LDI 

0 

ST 

-MP3) 

JMP 

X27 


>* ASSIGN NEW PAGE # 

i ************************************ 


NUPAGE: 

. LOCAL 
LD 

LO < P2) 


AN I 

7 


JNZ 

•0 


LDI 

1 

•0: 

ST 

PAGE(P2) 


"XPPC 

P3 


* GET PAGE • FROM STACK- 
; GET THE LOW 3 BITS 
i PAGE 0 BECOMES PAGE 1 


* RETURN 


* FIND START OF PAGE 


THIS ROUTINE COMPUTES THE START OF THE CURRENT TEXT PAGE/ 
STORING THE ADDRESS IN TEMP2<P2> [THE HIGH BYTE!/ AND 
TEMP3CP2) [THE LOW BYTE]. 


FNDPGE: LD 
XRI 
JNZ 
LDI 
ST 
LDI 
ST 
XPPC 

•1: XRI 

XAE 
LDI 
ST 

•LOOP: LDE 

CCL 
ADE 
XAE 
OLD 
JNZ 
LDE 
ST 
LDI 
8T 
XPPC 


PAGE(P2) 

1 

• 1 

H(PGM) 
TEMP2 < P2) 
L(POM) 
TEMP3(P2) 
P3 
I 

4 

NUM(P2) 


NUH(P2) 

•LOOP 

TEMP2(P2> 

2 

TEMP3(P2) 
P3 < 


<SPECIAL CASE IS PAGE 1, BUT 
i OTHERS ARE CONVENTIONAL 
iPAGE 1 STARTS AT 'POM' 


;RETURN 

* RESTORE PAGE • 

* SAVE IT 

i LOOP COUNTER - 4 

* MULTIPLY PAGES BY 16 


# TEHP2 HAS HI OH BYTE 
i OF ADDRESS NOW 
iLOU BYTE IS ALWAYS 2 
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2109 





•• 



2110 



* 

MOVE 

CURSOR TO NEW PAGE * 

2111 





*« 



2112 








2113 

OBBA 

C2E9 CHPAGE: 

LD 


TEMP2 < P2) 

i PUT START OF PAGE 

2114 

OBBC 

35 


XPAH 


PI 

i INTO PI. THIS ROUTINE 

2115* 

OBBD 

C2E8 


LD 


TEMPS(P2) 

; MUST BE CALLED RIGHT 

2116 

OBBF 

31 


XF'AL 


PI 

i AFTER 'FNDPGE" 

2117 

OBCO 

3F 


XPPC 


P3 

i RETURN 

2118 








2119 








2120 



************************************ 

2121 



* 

DETERMINE CURRENT 

PAGE * 

2122 



************************************ 

2123 








2124 

OBC1 

35 DETPGE: 

XPAH 


PI 

iCURRENT PAGE IS HIGH 

2125 

0BC2 

01 


XAE 



* PART OF CURSOR DIVIDED 

2126 

0BC3 

40 


LDE 



; BY 16 

2127 

0BC4 

35 


XPAH 


PI 


2128 

0BC5 

40 


LDE 




2129 

0BC6 

1C 


SR 




2130 

0BC7 

1C 


SR 




2131 

0BC8 

1C 


SR 




2132 

OBC 9 

1C 


SR 




2133 

OBCA 

CAF6 


ST 


PAGE(P2) 


2134 

OBCC 

3F 


XPPC 


P3 

iRETURN 

2135 








2136 








2137 



****** 


**• 



2138 



* 

CLEAR CURRENT 

PAGE * 

2139 



****** 

#•****< 

t** 



2140 








2141 

OBCD 

C2E9 NEWPGM 

LD 


TEMP2(P2) 

i POINT PI AT CURRENT PAGE 

2142 

OBCF 

35 


XPAH 


PI 


2143 

OBDO 

C2E8 


LD 


TEMP3(P2) 


2144 

0BD2 

31 


XPAL 


PI 


2145 

0BB3 

C40D 


LDI 


OD 

i PUT DUMMY END-OF-LINE 

2146 

0BD5 

C9FF 


ST 


-1 (PI ) 

* JUST BEFORE TEXT 

2147 

0BD7 

CAFF 


LDI 


-1 

>PUT -1 AT START OF TEXT 

2148 

0BD9 

C900 


ST 


<P1 ) 


2149 

OBDB 

C901 


ST 


1(P1 ) 


2150 

OBDD 

3F 


XPPC 


P3 

*RETURN 

2151 








2152 








2153 





>** 



2154 



* 

FIND 

LINE NUMBER 

IN TEXT * 

2155 








2156 








2157 



INPUTS 

THE 

START OF THE 

CURRENT PAGE IN TEMP2 AND TEMP3. 

2158 




THE 

LINE NUMBER 

TO LOOK FOR IN LO AND HI. 

2159 



OUPUTS 

THE 

ADDRESS OF THE FIRST LINE IN THE NIBL TEXT 

2160 




WHOSE 

LINE NUMBER IS GREATER THAN OR EQUAL TO THE 

2161 




NUMBER 

IN HI AND 

LG* RETURNED IN ADRLO AND ADRHI 

2163 




local 



2164 

OBOE 

C2E9 FNDLBL 

LD 


TEMP2(P2> 

* POINT PI AT START OP TEXT 

2165 

OBEO 

25 


XPAH 


FI 


2166 

OBE 1 

C2E3 


LD 


TEMPS(P2) 


2167 

OBE? 

31 


XPAL 


FI 


2168 

OBE 4 

C100 * 1 

LD 


(PI ) 

* HAVE WE HIT END OF TEXT? 

2169 

OBE 6 

E4FF 


XRI 


OFF 


21 70 

OBE 8 

9412 


JP 


*2 

.YES - STOP LOOKING 

2171 

OBE A 

0 3 


SCL 



,NO - COMPARE LINE NUMBERS 

2172 

OBEB 

C 101 


LD 


1 <P1 • 

i BY SUBTRACTING 

2173 

OBEO 

FAEF 


CAD 


LO (F'2) 


2174 

OBEF 

C 100 


LD 


CHP1 ) 


2175 

OBF1 

FAEE 


CAD 


HI<P2> 

; IS TEXT LINE « >= LINE #? 

2176 

OBE 3 

9407 


JP 


$2 

» YES - STOP LOOKING 

2177 

OBF 5 

C 102 


LD 


2 (P1) 

iNO - TRY NEXT LINE IN TEXT 

2178 

OBF 7 

01 


XAE 




2179 

OBF 8 

C530 


LD 


@EREG(FI) 

, SKIP LENGTH OF LINE 

2180 

OBF A 

90E8 


JMP 


*1 


2181 

OBFC 

31 %2 

XPAL 


PI 

iSAVE ADDRESS OF FOUND LINE 
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2182 

OBFD 

CAF 3 


ST 

LABLLCKP2) 

, IN 

LABLHI AND LABLLO 

2183 

OBFF 

31 


XF'AL 

PI 



2184 

ocoo 

35 


XPAH 

Pi 



2185 

ocoi 

CAF 2 


ST 

LABLHI(P2) 



2186 

0C03 

35 


XPAH 

PI 



2187 

0C04 

C2EF 


LD 

L0(P2) 

; WAS 

THERE AN EXACT MATCH? 

2188 

0C06 

E101 


XOR 

1 (PI ) 



2189 

0C08 

9C07 


JNZ 

*3 



2190 

OCOA 

C2EE 


LD 

HI(P2> 



2191 

ococ 

El 00 


XOR 

0 < F* 1 ) 



2192 

OCOE 

9 CCU 


JNZ 

43 

, NO 

FLAG THE ADDRESS 

2193 

OC10 

3F 


XPPC 

F'3 

, YES 

- RETURN NORMALLY 

2194 

OC11 

C2F2 

43 

LD 

LABLHI(P2) 

; SET 

SIGN BIT OF HIGH PART 

2195 

OC 13. 

DC 30 


OR I 

080 

; OF 

ADDRESS TO INDICATE 

2196 

OC 15 

CAF 2 


ST 

LABLHI(P2) 

i INEXACT MATCH OF LINE #'S 

2197 

0017 

3F 


XPPC 

P3 




2198 

219? 


PAGE 

I L MACROS 

2200 

2201 


. «r***tr-r f **ir*<cV********. *************** 

2202 


• * I 

L MAC ROS * 

2203 


.. *fr+n;- ******** 

************* ****** 

2204 

2205 

2206 
2207 


LOCAL 

47 STB11 - 

TSTBIT*256 

2203 

nof'O 

ALB IT = 

CALBIT*256 

220° 

4 (.■»>(• 

♦JHPB I I - 

JMPBIT *256 

2210 
2211 


MACRO 

TST,FAIL,A,B 

2212 


DBYTE 

♦TSTBIT!FAIL 

2213 


IF 

n=2 

2214 


BYTE 

A ! 080 

2215 

2216 


ELSE 

ASCII 

A 

2217 


BYTE 

B ! 080 

2218 


END IF 


221 


ENDM 



2223 

2224 

2225 

2226 

2227 

2228 

2230 

2?3t 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 


2250 

2251 

2252 

2253 

2254 


MACRO TSTCR, FAIL 
■KBYTE ♦TSTBI T 1 FAIL 
BYTE OD 1 080 
ENDM 

macro tstv,fail 

A DDR I '3 T VAR 

DBYTE FAIL 
tNDM 

MACRO TSTN.FAIL 
ABDR TSTNUM 
DBYTE FAIL 
ENDM 

MACRO JUMP■ADR 
DBYTE ♦JMPBIT!ADR 
ENDM 

MACRO CALL- ADR 
DBYTE ♦CALBIT!ADR 
ENDM 

MACRO DO 
MLOC I 
SET 1,1 

DO # 

ADDR #1 

SET I, 1 + 1 

END DO 
ENDM 

PAGE I L. TABLE 


, **********************************.*** 
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, * I L TABLE 





***#**•«**# *■»«•«•*****#*#*#*#*#*# # 

2257 

OC18 

START 

DO 

NLINE 

2259 

OC1A 

PROMPT 

DO 

GETL 

2260 

0C1C 


TSTCR 

PRMPT1 

2261 

OC 1F 


•JUMP 

PROMPT 

2262 

0C21 

PR MPT 1 : 

TSTN 

LIST 

2263 

0C25 


DO 

FNDPGE»XCHGP1, POPAE,FNDLBL,INSRT 

2264 

0C2F 


JUMP 

PROMPT 

2265 

2266 

OC 31 

LIST. 

TST 

RUN, LIS', T 

2267 

0C37 


DO 

FNDPGE 

226ft 

0C39 


TSTN 

LIST 1 

2269 

0C3D 


DO 

PUPAE, FNDLBL 

2270 

0C41 


JUMP 

LISTS 

2271 

0C43 

L I ST 1 

DO 

CHFAGE 

2272 

OC 45 

LISTS 

DO 

LST 

2273 

OC 47 

LISTS: 

CALL 

PRNUM 

2274 

0C49 


DO 

LST 3 

2275 

0C4B 


JUMP 

START 

2276 

2277 

0C4D 

RIJN 

TST 

CLR, RU , N 

2273 

OC 52 


DO 

DONE 

2279 

0C54 

BEG IN 

DO 

FNDPGE,CHFAGE,STRT, NXT 

2281 

nfsr: 

CLR 

TST 

NEW, CLEA , R 

2282 

0C63 


DO 

DONE,CLEAR, NXT 

2283 

2284 

0C69 

NEW 

TST 

STMT, NE , W 

2285 

0C6E 


TSTN 

DFAULT 

2286 

OC 72 


JUMP 

NEW 1 

2287 

0C74 

DFAULT: 

DO 

LIT1 

2288 

OC 76 

NEW 1 . 

DO 

DONE,FUFAE,NUPAGE,FNDPGE, NEWPGM, NXT 

2289 

2290 

0C82 

STMT 

TST 

LET, LE .'T 

2291 

0C87 

LET 

TSTV 

AT 

2292 

0C8B 


TST 

SYNTAX, =' 

2293 

0C8E 


CALL 

RELEXP 

2294 

0C90 


DO 

STORE, DONE,NXT 

2295 

0C96 

AT 

TST 

IF, e 

2296 

0C99 


CALL 

FACTOR 

2297 

0C9B 


TST 

SYNTAX, ='' 

2298 

0C9E 


CALL 

RELEXP 

2299 

OCAO 


DO 

MOVE, DONE, NXT 

2300 

2301 

0CA6 

IF 

TST 

UNT, I ", F' 

2302 

OCA A 


CALL 

RELEXP 

2303 

OCAC 


TST 

IF 1, THE , "N" 

2304 

0CB2 

IF1 

DO 

POPAE, CMPR 

2305 

0CB6 


JUMP 

STMT 

2307 

0CB8 

IJNT 

TST 

DO, UNTI , L 

2308 

OC'BF 


DO 

CKMODE 

2309 

OC C 1 


CALL 

RELEXP 

2310 

OC C 3 


DO 

DONE.POPAE, UNTIL, DETFGE, NXT 

2311 

2312 

OCCD 

DO 

TST 

GOTO, D , 0 

2313 

0CD1 


DO 

O MODE,DONE, SAVEDO, NXT 

2314 

2315 

0CD9 

GOTO 

TST 

RETURN, G , 0 

2316 

OC DD 


TST 

GOSUB, T , 0 

2317 

OC E1 


CALL 

RELEXP 

2318 

0CE3 


DO 

DONE 

2319 

OC E 5 


JUMP 

GO 1 

2320 

OC E7 

GOSUB 

TST 

SYNTAX, SU', B 

2321 

OCEC 


CALL 

RELEXP 

2322 

OCEE 


DO 

DONE, SAV 

232 3 

0CF2 

GO 1 

DO 

FNDPGE, POPAE,FNDLBL, XFER, NXT 

2324 

OCFC 

RETURN 

TST 

NEXT, RETUR , N 

2326 

0D04 


DO 

DONE,RSTR, DETFGE, NXT 

2327 

OBC>C 

NEXT 

TST 

FOR, NEX , T 
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23:2’? 

0D12 


DO 

CKMODE 

2330 

OD14 


TSTV 

SYNTAX 

2331 

0018 


DO 

DONE, NEXTV 

2332 

0D1C 


CALL 

GTROP 

2333 

00 IE 


DO 

POPAE , NEXTV1,DETPGE,NXT 

2334 

2335 

0026 

FOR 

TST 

ST AT, F 0 , R 

2336 

0020 


DO 

CKMODE 

2337 

0020 


TSTV 

SYNTAX 

2338 

0031 


TST 

SYNTAX, "'=••• 

233? 

0034 


CALL 

RELEXP 

2340 

0036 


TST 

SYNTAX, T', 0 

2341 

0D3A 


CALL 

RELEXP 

2342 

0D3C 


TST 

FORI, STE , P 

2343 

0042 


CALL 

RELEXP 

2344 

0044 


JUMP 

F0R2 

2345 

0046 

FORI 

DO 

LIT1 

2346 

0048 

FOR 2 

DO 

DONE, SAVFOR, STORE,NXT 

2347 

2348 

0050 

S'TAT 

TST 

PGE, •'STA , T 

2349 

0056 


TST 

SYNTAX, - = ■• 

2350 

0059 


CALL 

RELEXP 

2351 

0050 


DO 

POPAE, MOVESR 

2352 

0D5F 


DO 

DONE,NXT 

2353 

2354 

0063 

FOE 

TST 

DOLLAR, PAG , £' 

2355 

0069 


TST 

SYNTAX, •- = ••■ 

2356 

0D6C 


CALL 

RELEXP 

2357 

0D6E 


DO 

DONE, POPAE, NUPAGE, FNDPGE*CHPAGE, 

2358 

235? 

0D7A 

DOLLAR 

TST 

PRINT, '%' 

2360 

0D7D 


CALL 

FACTOR 

2361 

0D7F 


TST 

SYNTAX, 


0082 


TST 

DOLR 1, " 

2363 

0085 


DO 

POPAE, PUTSTR 

2364 

0089 


JUMP 

DOLR 2 

2365 

0080 

DOLR1 

TST 

SYNTAX, % 

2366 

0D8E 


CALL 

FACTOR 

2367 

0090 


DO 

X CHOP1, MOVSTR, XCHGPl 

2368 

2369 

0096 

D0LR2 

DO 

DONE, NXT 

2370 

0D9A 

PRINT: 

TST 

INPUT, P , 'R 

2371 

009E 


TST 

PR1, IN ', T' 

2372 

0DA3 

PR1: 

TST 

PR 2, - 11 ' 

2373 

0DA6 


DO 

PRS 

2374 

0DA8 


JUMP 

COMMA 

2375 

00 A A 

PR 2. 

TST 

PRS, 

2376 

ODAD 


CALL 

FACTOR 

2377 

ODAF 


DO 

XCHGPl, POPAE, PSTRNG. XCHGPl 

2378 

0DB7 


Jl IMF* 

COMMA 

2379 

0009 

PR 3 

CALL 

RELEXP 

2380 

0000 


CALL 

PRNUM 

2381 

0000 

COMMA: 

TST 

PR4, 

2382 

00 CO 


JUMP 

PR1 

2383 

0DC2 

PR4 

TST 

PRS, , 

2384 

0DC5 


JUMP 

F‘R6 

2385 

0DC7 

PR5 

00 

NLINE 

2386 

0DC9 

PR6 

DO 

DONE,NXT 

2387 

2388 

oocn 

INPUT 

TST 

END, INPU i T 

2389 

0004 


DO 

CKMODE 

2390 

0006 


TSTV 

IN2 

2391 

ODOA 


DO 

XCHGPl,GETL 

2392 

CODE 

INI 

CALL 

RELEXP 

2393 

ODEO 


DO 

STORE.XCHGPl 

2394 

ODE 4 


1ST 

IN-;, , 

2395 

ODE 7 


TSTV 

SYNTAX 

2396 

ODEO 


DO 

XCHGPl 

2397 

ODED 


TST 

SYNTAX, , 

2398 

ODFO 


JUMP 

INI 

2399 

OOF 2 

IN2 

1ST 

SYNTAX, % 

2400 

0DF5 


CALL 

FACTOR 

2401 

OOF 7 


DO 

XCHGPl,GETL.POPAE,ISTRNG,XCHGPl 

2402 

0E01 

INS 

DO 

DONE, NXT 
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2403 

2404 

0E05 

END 

TST 

ML, EN , D 

2405 

0E0A 


DO 

DONE,BREAK 

2406 

2407 

OEOE 

ML 

TST 

REM, LIN . K' 

2408 

OE14 


CALL 

RELEXP 

2409 

OE16 


DO 

DONE, XCHGP1. POPAE, CALLML, XCHGP1, NXT 

2410 

2411 

0E22 

REM: 

TST 

SYNTAX, RE . M 

2412 

0E27 


DO 

IGNORE, NXT 

2413 

2414 

0E2B 

SYNTAX. 

DO 

ERR 

2415 

0E2D 

ERRNUM: 

CALL 

PRNUM 

2416 

0E2F 


DO 

FIN 

2417 

2418 


, NOTE. 

EACH 

RELATIONAL OPERATOR <EG, LEG* ETC ) DOES AN 

2419 


; AUTOMATIC 

RTN (THIS SAVES VALUABE BYTES!) 

2420 

2421 

0E31 

RELEXP 

CALL 

EX PR 

2422 

0E33 


TST 

REL1, 

2423 

0E36 


CALL 

EX PR 

2424 

0E38 


DO 

EC! 

2425 

0E3A 

REL1 

TST 

REL4,'<• 

2426 

0E3D 


TST 

REL2, = 

2427 

0E40 


CALL 

EX PR 

2428 

0E42 


DO 

LEG 

2429 

0E44 

REL2. 

TST 

REL3# - 

2430 

0E47 


CALL 

EX PR 

2431 

0E49 


DO 

NEG 

2432 

0E4B 

REL3: 

CALL 

EX PR 

2433 

0E4D 


DO 

LSS 

2434 

0E4F 

RFL4 

TST 

RETEXP, ■ > ' 

2435 

0E52 


TST 

REL5, ■- = 

2436 

0E55 


CALL 

EX PR 

2437 

0E57 


DO 

GEG 

243? 

0E59 

REL5: 

CALL 

EX PR 

2439 

0E5B 

GTROP: 

DO 

GTR 

2440 

2441 

0E5D 

EX PR: 

TST 

EX1, 

2442 

0E60 


CALL 

TERM 

744 3 

0E62 


DO 

NEG 

2444 

0E64 


JUMP 

EX3 

2445 

0E66 

EX 1 

TST 

EX2» •> ' 

2446 

0E69 

EX2 

CALL 

TERM 

2447 

0E6J3 

EX 3. 

TST 

EX4, 

2448 

0E6E 


CALL 

TERM 

2449 

0E70 


DO 

ADD 

2450 

0E72 


JUMP 

EX3 

2451 

0E74 

EX4 

TST 

EX5, - 

2452 

0E77 


CALL 

TERM 

2453 

0E79 


DO 

SUB 

2454 

0E7B 


JUMP 

EX3 

2455 

0E7D 

EX5: 

TST 

RETEXP, 0", R' 

2456 

0E31 


CALL 

TERM 

2457 

0E83 


DO 

DROP 

2458 

0E85 


JUMP 

EX3 

2459 

0E87 

RETEXP: 

DO 

RTN 

2460 

2461 

0E89 

TERM 

CALL 

FACTOR 

2462 

OESB 

T1 

TST 

T2, - * 

2463 

0E8E 


CALL 

FACTOR 

2464 

0E90 


DO 

MUL 

2465 

0E92 


JUMP 

T 1 

2466 

0E94 

T 2 

TST 

T3, / 

2467 

0E97 


CALL 

FACTOR 

2468 

0E99 


DO 

DIV 

2469 

0E9B 


JUMP 

T1 

2470 

0E9D 

T3. 

TST 

RETEXP, AN , D 

2471 

0EA2 


CALL 

FACTOR 

2472 

0EA4 


DO 

AND OP 

2473 

0EA6 


JUMP 

T1 

2474 

2475 

0EA8 

FACTOR 

TSTV 

FI 
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2476 

OEAC 


DO 

2477 

OEBO 

FI 

TSTN 

2478 

0EB4 


DO 

2479 

0EB6 

F2 

TST 

2480 

0EB9 


DO 

2431 

OEBD 

F3: 

TST 

2482 

OECO 


CALL 

2483 

0EC2 


TST 

2484 

0EC5 


DO 

2485 

0EC7 

F4 

TST 

2486 

DEC A 


CALL 

2487 

OECC 


DO 

2483 

OEDO 

F5 

TST 

2489 

0ED5 


CALL 

2490 

0ED7 


DO 

2491 

OEDB 

F6. 

TST 

2492 

GEE 1 


DO 

2493 

0EE5 

F7 

TST 

2494 

OEEA 


DO 

2495 

OEFO 

F8: 

TST 

2496 

0EF5 


CALL 

2497 

0EF7 


DO 

2498 

OEFD 

F9: 

TST 

2499 

OF 02 


CALL 

2500 

OF 04 


DO 

2501 

OF 12 

F 10 

TST 

2502 

OF 13 


DO 

2503 

2504 

OF 1C 

DOUBLE 

TST 

2505 

OF IF 


CALL 

2506 

OF 21 


TST 

2507 

OF 24 


CALL 

2508 

OF 26 


TST 

2509 

0F29 


DO 

2510 

2511 

0F2B 

PRNUM 

DO 

2512 

0F2F 

PRNUM1 

Du 

2513 

2514 

2515 


,****** 

PAGE 

******* 


IND,RTN 
F2 
RTN 
F3. # 

HEX,RTN 
F4, .< 

RELEXP 
SYNTAX, ) 

RTN 
F5> e 
FACTOR 
EVAL, RTN 
F6, NO , T 
FACTOR 
NOTOP, RTN 
F7, ST A , T' 

STATUS,RTN 
FS, TO , F 
FNDPGE,TOP,RTN 
F9, MO'. D 
DOUBLE 

DIV,MODULO. RTN 
F10, RN ", 'D' 

DOUBLE 

RANDOM,SUB, ADD, DIV, MODULO. ADD. RTN 
SYNTAX. F*AG , E' 

PUTPGE,RTN 

SYNTAX, (' 

RELEXP 
SYNTAX, " 

RELEXP 
SYNTAX, ') 

RTN 

XCHGP1, PRN 
DIV,PRN1, XCHGP1, RTN 
ERROR MESSAGES' 


2516 


ERROR MESSAGES * 


2517 

2518 

2519 


2521 

2522 

2523 

2524 0F37 

2525 OF3D 

2526 OF41 

2527 OF45 

2528 0F49 

2529 0F4D 

2530 0F51 

2531 OF55 

2532 OF59 

2533 0F5D 

2534 OF61 

2535 OF65 

2536 OF68 

2537 0F6C 

2538 0F6F 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 0F73 C408 

2547 OF75 CAEB 

2548 0F77 06 


;************************************* 


. MACRO 
. ASCII 

MESSAGE,A,B 

-A-' 


. BYTE 
ENDM 

'B' !080 


MESSAGE 

ERRO 

R 

1 

MESSAGE 

ARE , 

A' 

2 

MESSAGE 

STM , 

T' 

3 

MESSAGE 

'CHA', 

R' 

4 

MESSAGE 

SNT , 

-• x -■ 

5 

MESSAGE 

VAL '. 

U' 

6 

MESSAGE 

END , 

■■.. ,• 

7 

MESSAGE 

'NOG', 

'0' 

8 

MESSAGE 

RTR , 

N 

9 

MESSAGE 

NES' , 

T 

10 

MESSAGE 

NEX 

T - 

11 

MESSAGE 

F 0 , 

R 

12 

MESSAGE 

DIV , 

0 

13 

MESSAGE 

BR , 

K 

14 

MESSAGE 

IJNT , 

L 

15 

PAGE 

TELETYPE ROUTINES' 


. *************************************** 

,# GET CHARACTER AND ECHO IT * 

, ********** 

LOCAL 

GECO LDI 8 . SET COUNT = 8 

ST NUM(P2) 

CSA 


,SET READER RELAY 
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2549 

0F78 

DC 02 


OR I 

2 


2550 

OF 7 A 

07 


CAS 



2551 

OF 7 B 

06 

*1 

CSA 


WAIT FOR START BIT 

2552 

0F7C 

D420 


AN! 

020 


2553 

0F7E 

9CFB 


JNZ 

$1 

NUT FOUND 

2554 

0F80 

C457 


LDI 

87 

DELAY 1/2 BIT TIME 

2555 

0F82 

8F04 


DLY 

4 


2556 

0FS4 

06 


CSA 


IS START BIT STILL THERE? 

2557 

OF 85 

D420 


AN I 

020 


2558 

0F87 

9CF2 


•JNZ 

*1 

NO 

2559 

OF 89 

06 


CSA 


SEND START BIT 

2560 

OFSA 

D4FD 


AN I 

7.2 

RESET READER RELAY 

2561 

0F8C 

DC 01 


OR I 

1 


2562 

0F8E 

07 


CAS 



2563 

0F8F 

C485 

* 2 : 

LDI 

133 

DELAY 1 BIT TIME 

2564 

OF 91 

8F08 


DLY 

s 


2565 

0F93 

06 


CSA 


GET BIT (SENSED) 

2566 

OF 9 4 

D420 


AN I 

020 


2567 

0F96 

9804 


•JZ 

S3 


2568 

OF 93 

C401 


LDI 

1 


2569 

0F9A 

9004 


■JMP 

$4 


2570 

0F9C 

C400 

*3: 

LDI 

0 


2571 

0F9E 

9C00 


JNZ 

$4 


2572 

OF AO 

CAE A 

*4 

ST 

TEMP(P2) 

SAVE BIT VALUE <0 OR 1) 

2573 

0FA2 

IF 


RRL 


ROTATE INTO LINK 

2574 

OF A 3 

01 


XAE 



2575 

0FA4 

ID 


SRL 


SHIFT INTO CHARACTER 

2576 

0FA5 

01 


XAE 


RETURN CHAR TO E 

2577 

0 FA 6 

06 


CSA 


ECHO BIT TO OUTPUT 

2578 

0FA7 

DC01 


OR I 

1 


2579 

0FA9 

E2EA 


XOR 

TEMP(P2) 


2580 

OFAB 

07 


CAS 



2581 

OF AC 

BAEB 


DLD 

NUM(P2) 

DECREMENT BIT COUNT 

2582 

OFAE 

9CDF 


JNZ 

S2 

LOOP UNTIL 0 

2583 

OFBO 

06 


CSA 


SET STOP BIT 

2584 

0FB1 

D4FE 


AN I 

OFE 


2585 

0FB3 

07 


CAS 



2586 

0FB4 

3F08 


DLY 

8 

; DELAY APPROX. 2 BIT TIMES 

2587 

0FB6 

40 


LDE 


;AC HAS INPUT CHARACTER 

2588 

0FB7 

D47F 


AN I 

07F 


2589 

0FB9 

01 


XAE 



2590 

OF BA 

40 


LDE 



2591 

OFBB 

3F 


XPPC 

P3 

RETURN 

2592 

OFBC 

90B5 


JMP 

GECO 


2593 







2594 



, * ************************** ********** 

259 5 



, * 

PRINT 

CHARACTER AT TTY 

« 

2596 



, *********** 

************************** 

2597 







2598 

OFBE 

01 

PUTC 

XAE 



2599 

OFBF 

C4FF 


LDI 

255 


2600 

0FC1 

3F17 


DLY 

23 


2601 

0FC3 

06 


CSA 


.SET OUTPUT BIT TO LOGIC 0 

2602 

0FC4 

DCOl 


OR I 

1 

FOR START BIT. (NOTE INVERS 

2603 

0FC6 

07 


CAS 



2604 

0FC7 

C409 


LDI 

9 

i INITIALIZE BIT COUNT 

2605 

0FC9 

CAES 


ST 

TEMPS(P2i 


2606 

OFCB 

C48A 

PUTCl 

LDI 

138 

.DELAY 1 BIT TIME 

2607 

OFCD 

8F08 


DLY 

Si 


2608 

OFCF 

BAE 8 


DLD 

TEMP I: ( P2 ) 

.DECREMENT BIT COUNT 

2609 

0FB1 

9810 


•JZ 

PUTC 2 


2610 

0FD3 

40 


LDE 


.PREPARE NEXT BIT 

2611 

0FD4 

D401 


AN I 

1 


2612 

0FD6 

CAE 9 


ST 

TEMP2<P2) 


2613 

0 FD 8 

01 


XAE 


.SHIFT DATA RIGHT 1 BIT 

2614 

0FB9 

1 C 


SR 



2615 

OF DA 

01 


XAE 



2616 

OFDB 

06 


CSA 


i SET UP OUTPUT BIT 

2617 

OF DC 

DCO1 


OR I 

1 


2618 

OFDE 

E2E9 


XOR 

TEMF'2 < P2 > 


2619 

OFEO 

07 


CAS 


PUT BIT TO TTY 

2620 

OFE1 

90E8 


JMP 

PUTCl 


2621 

0FE3 

06 

PUTC2: 

CSA 


SET STOP BIT 

2622 

OFE 4 

D4FE 


AN I 

OFE 
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2623 

0FE6 

07 

CAS 



2624 

0FE7 

3F 

XPPC 

P3 

;RETURN 

2625 

OFES 

9004 

•JMP 

PIJTC 


2626 


0000 

END 

0 



TELETYPE ROUTINES 


ADD 

0335 

AESTK 

i 050 

ANDOP 

05F u 

AT 

0C96 

DEGIN 

0C54 

BREAK 

02 SS 

LALPIT 

0030 

CALLML 

0963 

CHEAT 

007C 

CHEAT 1 

009B 

CHPAGE 

OBBA 

CHRNUM 

FFE7 

CK1 

064* 

CKMClDE 

0644 

CLEAR 

0051 

CLEAR1 

0056 

CLR 

0C5C 

CMP 

0562 

CMP1 

0502 

CMP 2 

05C A 

CMPR 

05 D9 

COMMA 

ODBO 

DETF'GE 

OBC1 

OKAULT 

0C74 

DIV 

04 1 0 

00 

OC CD 

DOLLAR 

007A 

D0LR1 

0D8B 

00LR2 

0096 

DONE 

0135 

DONE 1 

0143 

DONE 2 

0144 

DDPTR 

FFFF 

DOSTAK 

107 A 

DOUBLE 

OF 1C 

EO 

0150 

EOA 

0100 

El 

0195 

E10 

07C6 

El 1 

OS IE 

E12 

0860 

E12 A 

08E1 

E13 

0910 

E 14 

0950 

F15 

097C 

E 16 

09CC 

E16A 

0A2E 

E17 

0A4A 

E13 

0AA7 

E19 

0B04 

E2 

01CC 

ESA 

028A 

E4 

02DF 

E5 

030C 

E6 

0378 

E6A 

0302 

ES 

0640 

ESA 

06E5 

ESP 

06 B 2 

E9 

074F 

END 

0E05 

EO 

054C 

EREO 

FFSO 

ERR 

0223 

ERR1 

0220 

ERR 2 

022 7 

ERRNUM 

0E2D 

EVAL 

07E6 

EX 1 

0E66 

EX 2 

0E69 

EX 3 

0E6B 

EX4 

0E74 

EX5 

0E70 

EXECIL 

0076 

EX PR 

0E50 

F 1 

OEBO 

F10 

or 12 

f 2 

OEB6 

f < 

OEBO 

F'4 

0EC7 

F5 

OEDO 

F6 

OtOB 

\ 7 

0bL5 

F S 

OfcFO 

F9 

OEFD 

FACTOR 

Ob AS 

FAIL 

05E1 

FAILHI 

FFEC 

FAILUO 

FFED 

FALSE 

05C8 

FIN 

021-2 

FNL'LBL 

OBOE 

FNDPGE 

0094 

FOR 

0026 

FORI 

0D46 

FOR 2 

0D4S 

FORPTR 

FFFE 

FORSTK 

10SA 

GECO 

OF 7 3 

GEO 

0560 

GEQ1 

05 PE 

OETL 

075 3 

GO 1 

OC F 2 

GOSUB 

0CE7 

GOTO 

0CD9 

OTR 

055L 

GTR1 

05133 

GTROP 

0E5B 

HEX 

0654 

HI 

FFEE 

Hit INK 

FFF7 

IF 

OCAS 

IF1 

0CB2 

IGNORE 

0vB5 

IL'-'i 

OOAA 

ILCALL 

00 AO 

INI 

ODDE 

IN2 

OOF 2 

IN; 

OEO1 

I MB 

0534 

INPUT 

OOCD 

IN’-RT 

0820 

ISTRNG 

OB 2 2 

JMPBIT 

0040 

LABLHI 

FFF2 

LABI LO 

FFF , 

LBuF 

1006 

LEW 

0553 

LEQ1 

05 A A 

LET 

0C87 

LIST 

OC 31 

LIST 1 

0C43 

LIST2 

0C45 

LISTS 

OC 4 7 

LISTNO 

FFF5 

LIT 1 

0A30 

LO 

FFEF 

L.Ol INE 

FFFS 

LSS 

0554 

LSS 1 

05 A 2 

L.ST 

02E1 

LST 2 

02FF 

LST3 

030E 

LST 4 

0314 

LST5 

0324 

L.STK 

FFFO 

ME SOS 

OF 37 

ML 

OEOE 

MODULO 

09BC 

MOVE 

0804 

MOVESR 

0949 

MOVSTR 

0B52 

MUL 

037A 

NEC 

036 3 

NEC' 

0550 

NE01 

0599 

NEW 

0C69 

NEW 1 

0C7fc 

NEUPGM 

OB CO 

NEXT 

ODOC 

NEXTV 

0A85 

NFXTV1 

oaea 

NL INfc 

0215 

NO-JUMP 

0090 

NOTOP 

05F8 

NUM 

FFEB 

NUF'AGK 

OB® 9 

NXT 

028C 

NXT1 

02 A 9 

CROP 

05F 4 

PI 

0001 

PI HI OH 

FFFO 

PI LOW 

FFF1 

F2 

0002 

P3 

0008 

PAGE 

FFF6 

PCHIOH 

FFFA 

PC LOW 

FFFB 

POSTAL 

10A6 

FCSTK 

FFF9 

POE 

0063 

POM 

1120 

POF-AE 

0912 

PR1 

0DA3 

PP2 

OOAA 

PR 3 

0DB9 

PR 4 

OOC 2 

PR 5 

OBC 7 

PR 6 

0DC9 

PRINT 

009A 

PRMPT 1 

0C21 

F'RN 

0197 

PRN1 

DICE 

PRNUM 

0F2B 

PRNUM1 

0F2F 

PROMPT 

OC 1A 

PRS 

017E 

PRS1 

0193 

PSTRNG 

0B06 

F'UTC 

OF BE 

PUTC1 

OF CO 

PUTC2 

OFE 3 

PUTFOE 

OB 7 7 

PUTSTR 

OB 32 

random 

09CE 

REL 1 

0E3A 

REL2 

0E44 

REL 3 

0E4B 

REL4 

0E4F 

REl.5 

0E59 

RELEXP 

0E31 

REM 

0E22 

RETEXP 

0E37 

RETURN 

OCT C 

RNDF 

FFE6 

RNDX 

FFE5 

RNDY 

FFE4 

RSTR 

01 4S 

RSTR1 

0152 

RSTR2 

0167 

RTN 

OOFO 

RUN 

OC 40 

RUNMC'D 

FFF4 

SAV 

01 OF 

SAV1 

0120 

SAV2 

01 31 

SAVEDO 

0974 

SAVPOR 

0A42 

SBRPTR 

FFFC 

3BRSTK 

106 A 

SETZ 

05SD 

START 

OC 1S 

3TAT 

0050 

STATUS 

Ov52 

STMT 

QC82 

STORE 

04C9 

STRT 

02CS 

SUB 

034C 

SYNTAX 

0E2B 

T 1 

OESB 

T2 

0E94 

T3 

0E90 

TEMP 

FFEA 

TEMP2 

FFE9 

TEMP'S 

FFE3 

TERM 

0E89 

TOP 

0990 

TST 

00C5 

TSTBIT 

0020 

TSTNUM 

06B4 

TSTVAR 

04E9 

IJNT 

0CB6 

UNTIL 

0924 

VARS 

101C 

XO 

OOEC 

XI 

0165 

X10 

04E2 

XU 

054A 

X1 2 

0597 

X12A 

05EE 

XI213 

0637 

X12C 

067A 

X13 

06E3 

X14 

0751 
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X 15 

07B4 

X19A 

OSES 

X2S 

09CA 

X27 

0B30 

X6 

02 DD 

X9 

03EF 

XFER 

0171 

ZZ0003 

OFBD 

ZZ0007 

OF 3 7 

Z ZOOOE! 

OFBD 

ZZOOOF 

0002 

Z ZOO 13 

0002 

ZZOO17 

0005 

Z ZOO IB 

0004 

ZZOOIF 

0006 

ZZ0023 

0006 

ZZ0027 

0005 

ZZ002B 

0003 

ZZ002F 

0004 

Z Z0033 

0002 

ZZ0037 

0003 

ZZ003B 

000-3 

ZZ003F 

0002 

ZZ0043 

0002 

ZZ0047 

0002 

ZZ004B 

0002 

ZZ004F 

0002 

ZZ0053 

0003 

ZZOOS7 

00 OS 

ZZ005B 

0005 

60 

0996 

61 

0230 

61 

06E7 

61 

097E 

61 

0A8F 

61 

ODE 4 

62 

025A 

62 

07B2 

62 

0B2S 

63 

0304 

•3 

OC11 

64 

OF AO 

6ADD1 

OSFF 

•END 

04C3 

6ENTE 

06 SB 

6JMPB 

4000 

6L00P 

0203 

6L00P 

066C 

6L00P 

0B38 

•MOVE 

0S6F 

•OK 

051A 

•PRNT 

01EF 

•RUB 

07CE 

•SKIP 

0664 

•IJP2 

08C2 

• XU 

07A6 


X 16 

07 F 4 

X20 

0909 

X24 

0A2C 

X4 

01CA 

X6A. 

030A 

X9A 

0439 

XFER 1 

0179 

Z Z 0004 

OFBD 

Z Z 0008 

OF 37 

z zoooc 

101 C 

ZZOO10 

0006 

ZZOO14 

0002 

ZZOO18 

0004 

ZZOO1C 

0004 

Z Z0020 

0005 

ZZOO24 

0005 

Z Z 0028 

0002 

Z Z 002C 

0003 

7 Z0030 

0003 

7ZOO34 

0003 

Z Z 0038 

0002 

Z Z 003C 

0007 

ZZ0040 

0002 

ZZ0044 

0002 

ZZOO48 

0002 

Z Z004C 

0002 

ZZ0050 

0003 

ZZ0054 

0003 

Z Z 0058 

0003 

•0 

002A 

60 

0B91 

61 

03 v 7 

61 

0772 

61 

099C 

61 

OB 12 

61 

0F7B 

62 

03A8 

62 

0842 

62 

OBFC 

63 

04 AC 

*3 

0F9C 

65 

085E 

•CALB 

8000 

•END 

06 AC 

•ENTE 

07B6 

♦LETR 

067C 

•LOOP 

0241 

•LOOP 

06F 7 

♦LOOP 

0B68 

•MSG 

0247 

•OK 

0688 

•REDO 

093C 

•SCAN 

00C7 

•TSTB 

2000 

•UP3 

0SC4 


X 17 

OS 1C 

X21 

094F 

X25 

0A63 

X5 

0221 

X7 

034A 

X9B 

04 A4 

zzoooi 

101C 

Z Z0005 

OFBD 

ZZOu09 

OFBD 

Zzoooo 

OFBD 

z zoo u 

0002 

ZZOO15 

0002 

ZZOO 19 

0002 

ZZOOID 

0003 

Z70021 

0002 

ZZ0025 

0002 

ZZ0029 

0002 

Z Z002D 

0007 

ZZOO31 

0002 

Z Z0035 

0002 

Z ZOO39 

0006 

ZZOO3D 

0003 

ZZO041 

0002 

Z ZOO45 

0002 

Z20049 

0002 

ZZ004D 

0002 

Zi 0051 

0002 

Z 1 0055 

0004 

ZZ0059 

0002 

♦0 

0420 

61 

0043 

61 

0443 

61 

0833 

61 

09FD 

61 

0B46 

610 

0AA9 

62 

0454 

62 

09 A 3 

62 

OFSF 

63 

OS 4 A 

64 

03F1 

6AB0R 

06C6 

*CR 

OVDS 

•END 

0B4C 

6EX I T 

0402 

•LOOP 

002C 

6L00P 

03B6 

6 LOOP 

09D 9 

•LOOP 

OBAA 

6NEG 

OOEE 

♦OR 

0616 

♦REDO 

OAF* 

•SHIF 

0692 

•UP 

0895 

•UP 4 

08D4 


X19 U06B 
X22 096E 

X26 0AE8 
X5A 0286 
X8 0376 
XCHGPi 0639 
110002 1120 
ZZ0006 OFBD 
ZZ000A 10D6 
Z ZOOOE 0002 
ZZOO12 0003 
ZZOO16 0002 
ZZ001A 0007 
ZZOOIE 0002 
ZZ0022 0003 
ZZ0026 0003 
ZZ002A 0005 
ZZ002E 0003 
Z20032 0005 
ZZOO36 0003 
ZZ003A 0003 
ZZ003E 0002 
Z20042 0002 
2 Z 0046 0002 
ZZOO4 A 0002 
ZZ004E 0003 
ZZOOS2 0003 
LZ 0056 0004 
ZZOOSA 0003 

60 076F 

61 01C6 

61 05FA 
61 0930 

61 0A4C 

61 08A3 

62 01FF 

62 0707 

62 OADD 

63 0261 

63 OADF 

64 0857 
♦ADD 08E3 

•DOWN 0885 
6ENT1 04A6 
6FAIL 04FB 
•LOOP 00DB 
6L00P 0460 

6L00P 0AD1 
•MAVB 050D 
•NOT 0628 
•PC'S 043B 
•RET 0606 
•SHXF 0714 
6UP1 08A1 
6XH 07C8 


NO ERROR LINE? 

SOURCE CHECKSUM - 33FE 
INPUT FILE 1 NIBLU27 SRC 



Chapter 4 


The Great Experiment 
Floppy ROM™ #1 
Robert Uiterwyk’s 
6800 4K BASIC 


By William Turner 
and William Blomgren 


The one thing that characterizes the microcomputer industry, is the 
number of innovations that appear on a daily basis. During the infancy 
of the industry, Interface Age in May of 1977 kept pace with the intro¬ 
duction of portable software; in the form of a plastic record called a 
Floppy ROM™. 

This article is a chronicle of the first Floppy ROM™ with Robert 
Uiterwyk’s 4K BASIC for the 6800. What made this first record signifi¬ 
cant was that it was the first time major systems software was 
published in machine readable form, that just about anyone could 
use. More importantly it opened up an era of cheap software 
distribution. 

WHY “PLATTER BASIC” ON A FLOPPY-ROM™? 

This is really a two-part question. First, why BASIC at all? The need 
for high level software is fairly self-evident, and BASIC will be ex¬ 
plained in a second article later in this issue. For now, let’s just settle 
with “Why a Floppy-ROM™ or platter?” 

Low cost software distribution is a recurring problem. It just ap¬ 
pears that “low cost” and “high reliability” just don't seem to mix. 
Shipping programs in ROM, at several dollars per copy, is too expen¬ 
sive. All magnetic media cost too much, are fairly bulky, and are 
fragile. Machine readable print requires a fair amount of hardware. 
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The bar code reader that we have located costs well over $100. Most 
people do not have a bar code reader, nor even access to one, but 
many do have some sort of record player. A conventional record costs 
a fair amount, and is relatively fragile. The “sound Sheet" or floppy- 
ROM is low in cost, and best of all, requires little more than a record 
player and your cassette interface. (Use the card at the end of this 
book to order the Floppy ROM™.) 

What’s On The Record? 

There are two different sections on the record. First are the test pat¬ 
terns to align your cassette interface. The second section is the soft¬ 
ware you will want to load into your 6800 based microcomputer. This 
section of the record includes a binary loader program, and the binary 
dump of BASIC. 

What Will I Need To Use The Record? 

A 6800 based microprocessor system is a must. A minimum amount 
of memory considered should be 6K. In addition, a Kansas City 
Cassette interface is also a must, and some sort of 300-baud terminal 
is desirable to check the alignment of your cassette interface. A 
cassette machine should be used to save BASIC once it gets loaded, 
because the record will have limited life. Don’t rely on it for more than 
ten or twenty loads because it will wear out. BASIC assumes that 
MIKBUG is resident in your system, with a scratchpad from A000 to 
A07F. Patching instructions are provided in an appendix to this article 
for those systems that do not have MIKBUG and the scratchpad. A 
separate loader program is also supplied for those without a MIKBUG 
loader. Several SWTPC 6800 systems have been used by various in¬ 
dividuals in verifying tha concept behind BASIC on a “Floopy- 
ROM™,” so owners of those systems should not have trouble at all. 
Last but certainly not least, a 33V3 RPM turntable. 

What Is The “Kansas City Standard?” 

The “Kansas City” recording standard was established to allow in¬ 
terchange of data and programs between microcomputer users. It 
allows great latitude in playback speed, and can be used with almost 
any cassette machine. “Marks”, or logioones, are represented by a 
frequency of 2400 Hz, and “spaces”, or logic zeros, are represented by 
1200 Hz. Data is transferred using the standard UART format, (1 start 
bit, 1 stop bit) at 300 baud. (Roughly thirty characters per second.) 
These frequencies were chosen because the 16X clock for the UART 
can be easily derived from the data being fed into the interface. Speed 
tolerances of 20- to 30% are acceptable. Figure 1 shows the circuit of 
the Southwest Technical Products AC-30. It is a fairly simple circuit, 
which will allow entry of the program into your system. With this cir¬ 
cuit, or its equivalent, the program on the “floppy-ROM” may be read. 




Figure 1. SWTPC AC-30 Cassette Tape Modulator/Demodulator Schematic 
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How Does It Work? 

Audio is fed through the highpass filter made up of R9 and C5. It is 
clipped by the pair of diodes, and fed into IC-4B, which acts as a com¬ 
parator. IC-4 should be fed a well regulated 7.5V supply, to ensure 
stable operation at this point. Zener diode D3 limits the output of IC-4 
to levels acceptable to the CMOS gate that follows. When the com¬ 
parator changes state, IC-3C and IC-3D generate a short (5 microsec¬ 
ond) negative pulse. When data is being received, these pulses repeat. 
This train of negative pulses grounds C7 through D4. The output of C7 
is inverted, buffered, and can be used to generate a carrier detect 
signal. These negative pulses are found at pin 11 of IC-3D. They’re in¬ 
verted by IC-2A, where they feed four circuits. The first circuit is a 
missing pulse detector, made up of Q2 and IC-2B. They pull the Carrier 
detect signal low if several cycles of audio are lost. 

The second circuit is an adjustable missing pulse detector, which 
“times out” when 1200 Hz data are received. R16 trims this time 
period. The third circuit is flip-flop IC-1A, which outputs the data. Its 
output is high when 1200 Hz is received. The last circuit is the clock 
synthesizer, which is made up of IC-2D and IC-3B. These generate the 
16X clock for your UART. 

How Do I Hook Up A Turntable? 

The AC-30 requires about 5 volts of signal to decode the data on the 
floppy record. Speaker output jacks will easily supply this level. 
Before you hook up a phonograph, check to see if it has a transformer- 
isolated chassis. If it doesn't, don’t hook it up! It would be all too easy 
to get 120V of your local power utility into your computer. This would 
tend to make a very expensive pile of write-only memory. If necessary, 
have a technician check out your stereo. Some component pre-amps 
are capable of driving 5 volts. A Dyna Pat-4 was used to test the 
records, and that worked nicely. However, it had to be turned up all the 
way. If your stereo set has a MONO—STEREO switch, set it on mono. 
A large percentage of noise on this type of disc is vertical. The vertical 
signal is essentially a “difference” signal for stereo, but is unwanted 
for this playback. It will cancel nicely, which will help load a very noisy 
disc. 

Adjust your stereo set for ‘flat’ response. If your tone control is a 
‘High Cut’ type, set the control for maximum. This is the starting point 
to align your system. If possible, transcribe the record the first time it 
is played. It should have reasonable life, 20 to 30 plays or more, but 
better safe than sorry. 

What Are The Weird Signals At The Start Of The Record? 

There are two test patterns that should be used to set up your 
AC-30. The first is a pattern of “5”s. Set your system up to echo the 
data from the tape to your terminal (local mode). Play back the tape. 
You should see a stream of “5”s. If you don’t, adjust the tone and 
volume controls slowly and carefully. The “5”s should play back 
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perfectly. There should be no other characters intermixed with the 
“5”s. 

If you are not able to get the “5”s to play back properly, check your 
interface circuitry next. If you built the interface shown in Figure 1, ad¬ 
just the R16 to trim the test pattern. 

The second test pattern is a “U*” pattern, to check for jitter. If the 
"5”s worked properly, this should also. If you are not able to get the 
"5”s to read out, don’t go further. Examine your connections, make 
sure you do not have any ground loops. Make sure you are getting a 
good clean signal out of the turntable. If you re-recorded the record on 
a cassette, make sure that you did not overload the cassette recorder 
when recording. Figure 2, shows a general view of how your system 
should be hooked up, with the turntable hooked into the AC-30 in 
place of a cassette machine. If you have arrived this far with flying 
colors, now is the time to load the program. First check your memory. 
Make sure all is well before going further. 

A slightly high boost may be necessary in some systems. If your 
system has a rumble filter, switch it on. There will be no valid informa¬ 
tion below 100 Hz, and elimination of these noise components may be 
helpful. 

If your record player has a good “scratch” filter, try it too. There is 
no information above 2400, but response at 2400 should be left as 
“Flat” as possible. If your scratch filter affects 5000 and above, it may 
be OK; 10000 and above would be better. Remember that most filters 
have a finite slope and frequencies 2 to 3 octaves away from the break 
frequency will be affected by level and phase changes. If you detect 
errors during program load, turn off the ‘scratch’ filter first. 

What If My Turntable Runs Fast Or Slowly? 

Again, the beauty of the “Kansas City” standard comes to the 
rescue. Very few turntables have speed errors larger than 10%, so 
there is little reason for concern. If your error is very large, adjust your 
cassette interface card. Run as close to 33V3 as possible on an ad¬ 
justable speed turntable. 


How To Load The Program 

After the test patterns, there is a 20-second space where the ‘band’ 
is cut. A string of ‘L’s follow, to start the loader function in MIKBUG. 
Place the tone arm down on the record near the end of the test pat¬ 
terns. There is a binary loader program in front of the data, which 
MIKBUG loads into memory at 1100 HEX. The computer than executes 
the binary load program, and loads BASIC. Very simple if you have 
MIKBUG. Figure 4, is a listing of the loader program which was loaded 
at 1100 HEX. You will note several MIKBUG routines were used. Patch 
these to fit your operating system. If your turntable has a center 
depression, place a regular record on the turntable first to support the 
Floppy-ROM™. 
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Figure 2. Interconnection Block Diagrams 


Pointers And External Routines 

Several subroutines in MIKBUG® were used. Copies of these 
routines may be found in Motorola Engineering Note #100, which is a 
listing of MIKBUG®. The routines are shown in Listing 1. Here is a 
short summary of the external subroutines, and a short explanation of 
what they do. 
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0272 

7E 

EOBF 

OUT2H 

JMP 

SE0BF 

OUT2H IN MIKBUG 

0275 

7E 

E0C8 

OUT4HS 

JMP 

$E0C8 

OUT4HS IN MIKBUG 

0278 

8D 

09 

OUTCH 

BSR 

BREAK 


027A 

7E 

E1D1 


JMP 

$E1D1 

OUTEEE IN MIKBUG 

027D 

BD 

El AC 

INCH 

JSR 

$E1 AC 

INEEE IN MIKBUG 

0280 

36 



PSH A 



0281 

20 

08 


BRA 

BREAK0 


0283 

36 


BREAK 

PSH A 



0284 

B6 

8004 


LDA A 

$8004 


0287 

2B 

09 


BMI 

BREAK1 


0289 

8D 

F2 


BSR 

INCH 


028B 

81 

03 

BREAK0 

CMP A 

#$03 


028D 

26 

03 


BNE 

BREAK1 


028F 

7E 

0815 


JMP 

READY 

NOTE READY LOCATION 

0292 

32 


BREAK1 

PUL A 



0293 

39 



RTS 


DONE 


Listing 1. 

The first of these routines is “OUT2H.” This routine prints the con¬ 
tents of memory pointed to by the index register. The contents are 
printed as two HEX characters. The index register is incremented 
before returning. A comparable routine should be found in almost all 
operating systems. The jump location is: 

0272 (HEX): 7E, E0, BF 

EOBF is the location of OUT2H in MIKBUG®, 7E is the jump 
instruction. 

The second external routine called is “OUT4HS.” This routine will 
print 4 HEX characters by calling the OUT2H routine twice. It then out¬ 
puts a space. Again, there is an equivalent in almost all operating 
systems. This routine returns the Index Register incremented twice. 
The instruction is located at: 

0275: 7E, E0, C8 

EOCB is the address of OUT4HS in MIKBUG®. 

The input and output routines in MIKBUG® are also used. INEEE 
and OUTEEE transfer one character through ‘A’ when called. It should 
be noted that the control port on a MIKBUG® equipped system is a 
‘bitbanger’ and thus may have different status bits than an ACIA. The 
jump locations are: 

INEEE: 

027D: BD, El, AC (Note it is a jump to subroutine) 

OUTEEE: 

027A: 7E, El, D1 (Note that this is a jump) 

Listing 1 shows the block of code containing these calls. The listing 
also has a listing of the break routine. If you are using an ACIA, it will 
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be necessary to change the break routine to check for your status. 
You will probably have to add a short subroutine to the end of BASIC. 

Another not-so-critical patch location is the carriage return-line 
feed string. The 15(HEX) is the erase to end of line character on a 
SWTPC CT-1024 terminal. This may be changed as necessary to allow 
an erase on your terminal. The string is located at: 

02AC: OD, OA, 15, FF, FF, FF, FF, IE 

If you have to add a routine to the end of BASIC, the pointer for the 
beginning of program storage must be changed, or BASIC will 
dramatically change your code! The locations you must change are: 

07F9, 07FA 

They currently contain 1200 HEX. You would have to change the con¬ 
tents of these locations to point at a location after your routine(s). Any 
routines that you have to add, should be located beyond 1200. 

Stack load and store operating may have to be changed if you don’t 
have memory from A000 to A07F. There are four stack pointer instruc¬ 
tions of note. These all load the stack pointer with A045 HEX. These 
locations are: 

080F, 0848, 0B16, 0CC3 

There is also a pair of stack references in the patch command 
routine. The first is at 08F8. This contains A040 currently. The instruc¬ 
tion is located in 08FB then stores the stack in A006. Note.. .the 
“Patch” command has another jump that may have to be changed if 
you don't have MIKBUG®. 08E3 contains the jump to MIKBUG®. It 
contains E0E3 currently. Change this to the equivalent in your 
monitor. 

There is an index register stack which has one reference. The index 
register stack sits at the top of MIKBUG’s scratchpad. Location 0819 
contains the Value A07F. Move this elsewhere as necessary. 

There is a store index register command in the “Patch” routine. It is 
located at 08F5, and contains an A046. This location is the top of the 
stack, so the ‘G’ command will cause a return to BASIC. 

Listing 2 shows a possible break routine for those with an ACIA for 
input. Note that it will not fit in the room that the current break routine 
occupies. Change the current break to have a jump subroutine at 1200 
HEX. A return would follow that. 

Listing 3 is a command listing of the biload program. It may be 
‘patched’ to fit into most operating systems, and will be quite easy to 
implement on a system using an ACIA. The data is transferred 
through the A accumulator. In MITS 680b systems, you will have to 
transfer from B to A because they use B for input and output. The 
place to put your input one character routine call is INCHP. Load your 
BILOAD equivalent, then execute it. It will ignore the BILOAD program 
on the FLOPPY ROM™ and load BASIC (hopefully). 
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00001 





NAM 


00002 





OPT 


00003 


0815 

READY 

EGU 


00004 


EOOO 

PORT 

EGU 


00005 

1200 




ORG 


00006 

1200 

36 


BREAK 

PSH 

A 

00007 

1201 

B6 

EOOO 


LDA 

A 

00008 

1204 

48 



ASL 

A 

00009 

1205 

24 

OC 


BCC 


00010 

1207 

B6 

E001 


LDA 

A 

00012 

120A 

84 

7F 


AND 

A 

00013 

120C 

81 

03 


CMP 

A 

00014 

120E 

26 

03 


BNE 


00015 

1210 

7E 

0815 


JMP 


00016 




* 



00017 

1213 

32 


RETURN 

PUL 

A 

00018 

1214 

39 



RTS 


00019 





END 


READY 

0815 






PORT 

EOOO 





BREAK 

1200 





RETURN 

1213 







BREAK 

StP 

*0815 INSIDE BASIC.... 

*E000 

*1200 

PORT (THIS IS THE STATUS PORT) 

PUT DATA AVAILABLE FLAG IN 
RETURN NOTHING THERE..BRANCH 

PORT+1 BRING IN A CHAR IF THERE 

#*7F GET RID OF PARITY... 

**03 IS IT A BREAK CHARACTER? 

RETURN NO... 

READY YES IT ISM STOP! 


GO BACK AGAIN... 


Listing 2. 


00030 





NAM 


BILOAD 


02780 





OPT 


L 


02790 

19A4 

8E 

1500 

BILOAD 

LOS 


**1500 

NEW STACK LOCATION 

02800 

19A7 

8D 

49 


BSR 


LOAD 

GET 10 READY 

02810 

19A9 

8D 

3C 

OVER 

BSR 


INPUT 

GET A CHARAC T ER 

02820 

19AB 

81 

58 


CMP 

A 

#'X 

IS IT FIRST CHARACTER? 

02830 

19AD 

26 

FA 


BNE 


OVER 

IF NO T r KEEP LOOKING. 

02040 

19AF 

8D 

36 


BSR 


INPUT 

GET ANOTHER CHARACTER 

02850 

1 9B1 

81 

31 


CMP 

A 

#'l 

SECOND CHARACTER? 

02860 

19B3 

27 

07 


BEG. 


READ 

GET DATA AND MORE... 

02870 

19B5 

81 

39 


CMP 

A 

*'9 

END CHARACTER f 

02880 

19B7 

26 

FO 


BNE 


OVER 

KEEP LOOKING 

02890 

19B9 

7E 

E0E3 


JMP 


CONIRl 

PATCH HERE FOR OTHER 

02895 




2895 * 




6800 SYSTEMS 

02910 

19BC 

7F 

17FF 

READ 

CLR 


CKSM 

ST ART W I TH ZERO 

02920 

19BF 

80 

26 


BSR 


INPUT 

GET BYTE COUNT 

02930 

19C1 

16 



TAB 



POT IT IN BP 

02940 

19C2 

5C 



INC 

0 

* 

INCREMENT IT ONCE 

02950 

19C3 

80 

22 


BSR 


INPUT 

GET FIRST PART Of ADDRESS 

02960 

19C5 

B7 

1800 


ST A 

A 

TUI 

STORE IT TEMPORARILY 

02970 

19C8 

80 

.id 


BSR 


INPUT 

GET SECOND PART 

02980 

19CA 

B7 

1801 


ST A 

A 

r u + l 

STORE IT 

02990 

19CD 

FE 

1800 


LDX 


TW 

PUT IT ALT. IN INDEX 

03010 

19 DO 

80 

15 

STORE 

BSR 


INPUT 

GET SOME DATA 

03020 

19D2 

A 7 

00 


ST A 

A 

X 

STORE 1 I 

03030 

19D4 

01 



NOP 



TIME TO FORGE f‘« . 

03050 

19D5 

A1 

00 


CMP 

A 

X 

IF SAME» GO ON 

03060 

1907 

26 

OB 


BNE 


OUT 

IF NOT» NO MEMORY THERE 

03070 

19 D 9 

00 



I NX 



POINT AT NEXT LOCATION 

03090 

19DA 

5A 



DEC 

B 

* 

SUBTRACT 1 BYTE FROM COUNT 

03100 

19DB 

26 

F3 


BNE 


STORE 

NOT DONE » DO MORE 

03110 

19DD 

80 

08 


BSR 


INPUT 

OK f ADD IN TAPE CHECKSUM 

03120 

19DF 

7C 

17FF 


INC 


CKSM 

ADD ONE... 

03130 

19E2 

27 

C5 


BEG 


OVER 

IF ZERO, ALE IS 'GOOD 

03140 

19E4 

7E 

E 040 

OUT 

JMP 


L 0 A 019 

AN ERR0R 1 PRTN T GARDAGE 

03150 

19E7 

80 

14 

INPUT 

BSR 


INC HP 

INPUT 1-8 BIT CHARACTER 

03160 

19E9 

36 



PSH 

A 

* 

SAVE lT 

031.70 

19EA 

BB 

17FF 


ADD 

A 

CKSM 

ADD SOME TO CHECKSUM 

03180 

19ED 

B 7 

17FF 


STA 

A 

CKSM 

STORE THE RESULTS 

03190 

19F0 

32 



POL 

A 

* 

RECALL THE DATA 

03200 

19F1 

39 



RTS 



GO BACK 
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03220 

19F2 

86 

1J 

LOAD 


LDA A 

#$11. 

START YOUR ENGINES 


03230 

19F4 

HD 

E1D1 



JSR 

OUTERE 

TELL THE MACHINE TO 

00 

03240 

19F7 

86 

3C 



LDA A 

**3C 

I IA RE ADER CON TRUI 


03250 

19F9 

B7 

8007 



STA A 

♦ 8007 

Pill IT INTO P I A 


03260 

19FC 

3V 




RTS 




03271 




3271 

* 

NOTE... 

If YOU 

HAVE A ROUTINE I HA I WILL 

03272 




3272 

* 

INPUT fi 

> FULL 

8 PIT WORD WITH PARITY 


03273 




3273 

* 

CALL YOUR ROUTINE IN PL AC* OP .INCHP. 

. » » 

03274 




3274 

* 

FOR EXAMPLE.. 

, 


03275 




3275 

* 

INCHP 

PSH E< 

PROTEC? b 


03276 




3276 

* 


JSR INCHAR THIS IS YOUR ROUMNE 

03277 




3277 

* 


PUL P 

OE! ft PACK 


03278 




3 2 7 8 

* 


R 1 S 



0327 V 




3279 

* 

PROTECT 

INDEX 

REGIS IEK A? ALL 1 IMPS' 

i i 

03280 

19FD 

37 


INCHP 


PSH B 

* 

THIS IS ALMOST SAMI 


03290 

19FE 

BP 

El A 5 



JSR 

SAL 1 

AS MIKPUUfPUT SAVES 

PARIIY 

03300 

1 AO 1 

A 6 

00 

INI 


LDA A 

X 

HIT. SEE MOTOROLA L>. 

10. .1. 00 

03310 

1 AO 3 

2B 

FC 



PM I 

INI 

FOR DETAILS Of flOW l 

1 WORK 


03330 

1A05 

6F 

02 

CLR 


2»X 

03340 

1A07 

BD 

E1F3 

JSR 


DE 

03350 

LAO A 

PD 

E1EF 

JSR 


PEL 

03360 

LA on 

C6 

04 

LDA 

B 

*4 

03370 

1A0F 

E7 

02 

STA 

B 

2 * X 

03380 

1A11 

58 


ASL 

P 


03400 

1A12 

BD 

E1EF IN3 

JSR 


nf l 

03410 

1A15 

on 


SEC 



03420 

LAI 6 

69 

00 

ROl.. 


X 

03430 

1A18 

46 


ROR 

A 


03440 

1A19 

5 A 


DEC 

B 


03450 

1A1A 

26 

F6 

BNE 


TN3 

03460 

1A1C 

BD 

FIEF 

JSR 


PEL 

03470 

1A1F 

7E 

E1E3 

IMP 


If HI I 


Listing 3. 


Memory Map for 4K Basic 

0000-00FF Input buffer and temporary variable storage 
0100 Hard starting address of BASIC (Cold start—clears 

program) 

0103 Soft starting address of BASIC (warm start—saves 

program) 

0105-10FF BASIC Interpreter 

1100-1 IFF Arithmetic and For-Next stack 

A000-A045 Machine stack 

A04A-A07F Index register stack 

Note: Binary loader program starts at 1100. It will be cleared by the 
Basic interpreter when 0100 is executed. 


02775 

1100 




ORG 

$1100 

02780 

1100 

8E 

A047 

PILOAD 

LDS 

#$A047 

02790 

1103 

BD 

49 


BSR 

LOAD 

02800 

1105 

BD 

3C 

OVER 

BSR 

INPUT 

02810 

1107 

8.1 

58 


CMP A 

#'X 

02820 

1109 

26 

FA 


PNE 

OVER 

02830 

HOP 

3D 

36 


PSR 

INPUT 

02840 

lion 

81 

31 


CMP A 

*' 1 

02850 

110F 

27 

07 


BEQ 

READ 

02860 

1111 

81 

39 


CMP A 

*'9 
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02870 

1113 

26 F0 

BNE 

OVER 

02880 

1115 

7E EOE3 

JMP 

CONTRL 


02900 

1118 

7F 

AO16 READ 

CL R 


CKSM 

02910 

11 IB 

8D 

26 

B8R 


INPUT 

02920 

11.1D 

16 


TAB 



02930 

11 IE 

SC 


INC 

B 


02940 

1.1 1 F 

8 Li 

2 '> 

BSR 


INPUT 

02950 

1121 

B7 

AO 19 

STA 

A 

ru 

02960 

1124 

8 Li 

ID 

BSR 


INPUT 

02970 

11.26 

B7 

AO 1A 

STA 

A 

Tld+1 

02980 

1129 

FE 

AO 19 

LDX 


ru 


03000 

112C 

8 D 

15 STORE 

BSR 


INPUT 

03010 

112E 

A 7 

00 

STA 

A 

X 

03020 

1130 

01 


NOP 



03040 

1131 

A1 

00 

CMP 

A 

X 

03050 

1133 

26 

OB 

BNE 


OUT 

03060 

1135 

08 


INX 



03080 

1136 

5 A 


DEC 

B 


03090 

1137 

26 

F3 

BNE 


STORE 

03100 

1139 

8 D 

08 

BSR 


INPUT 

03110 

U3B 

7C 

AO 16 

INC 


CKSM 

03120 

113E 

27 

C5 

BEQ 


OVER 


03130 

1140 

7E 

E040 

OUT 

JMP 


LOAD 19 

03140 

1143 

8D 

14 

INPUT 

BSR 


INCUR 

03150 

1145 

36 



PSH 

A 


03160 

1146 

BB 

A016 


ADD 

A 

CKSM 

03170 

1149 

B7 

A016 


STA 

A 

CKSM 

03180 

114C 

32 



PUL 

A 


03190 

114D 

39 



RTS 




03210 

114E 

86 

11 

LOAD 

LDA 

A 

**11 

03220 

1150 

BD 

E1D1 


JSR 


OUTEEE 

03230 

1153 

86 

3C 


LDA 

A 

*$3C 

03240 

1155 

B7 

8007 


STA 

A 

$8007 

03250 

1158 

39 



RTS 



03270 

1159 

37 


INCHP 

PSH 

B 


03280 

115A 

BD 

E1A5 


JSR 


SAV 

03290 

115D 

A6 

00 

INI 

LDA 

A 

X 

03300 

115F 

2B 

fc: 


BMI 


INI 

03320 

1161 

6F 

02 


CLR 


2»X 

03330 

1163 

BD 

E1F3 


JSR 


DE 

03340 

.1166 

BD 

E1EF 


JSR 


DEL 

03350 

1169 

C6 

04 


LDA 

B 

*4 

03360 

1.16 B 

E7 

02 


STA 

B 

2»X 

03370 

116D 

58 



ASL 

B 



03390 

116E 

BD 

E1EF IN3 

JSR 

DEL 

03400 

1171 

OD 


SEC 


03410 

1172 

69 

00 

ROL. 

X 

03420 

1174 

46 


ROR A 


03430 

1175 

5 A 


DEC B 


03440 

1176 

26 

F6 

BNE 

IN3 


03450 

.1178 

BD 

E1EF 

JSR 

DEL 

03460 

1.17 B 

7E 

E1E3 

JMP 

I0LJ 


Listing 4. 



240 


Best of Interface Age/Volume 1 


NAM BASIC 4K 

* 

* 

******* VERSION 2.1 ******* 

* 

* BY ROBERT H. UITERWYK 

* PLACED IN THE PUBLIC 

* DOMAIN JUNE* 1979 FOR 

* THE PURPOSES OF EDUCATION 

* FOR ALL MICROCOMPUTER 

* USERS* 

* 

* THIS PROGRAM ASSUMES THAT THE 

* MOTOROLA MIKBUG ROM IS INSTALLED 

* AND THAT ITS ASSOCIATED 128 BYTE 

* RAM IS ALSO PRESENT 

* THE SP AND XSTACK UILL HAVE TO 

* BE MOVED IF THIS IS NOT THE CASE. 


00270 *S AVF FIRST $20 RYTFS FOR 

00280 *FUTURF DISK US C 

00290 0020 ORG $70 

00300 0020 0002 INOFXJ RMB 2 

00310 0022 0002 TN0FX2 RMB 2 

00320 0024 0002 IN0FX3 RMB 2 

00330 0026 0002 INDFX4 RMB ? 

00340 0028 0002 SAVESP RMB 2 

00350 002A 0002 NEXTPA RMB 2 

00360 002C 0002 WORKRA RMB 2 

00370 002F 0002 SOURCE RMB 2 

00380 *TQ RE CHANGED AT PROGRAMMERS OPTION 

00390 0030 0002 PACKLN RMB 2 

00400 0032 0002 HIGHLN RMB 2 

00410 0034 0002 RASPNT RMB 2 

00420 0036 0002 RASLIN RMR 2 

00430 0038 0002 PUSHTX RMB 2 

00440 003A 0002 YSTACK RMB 2 

00450 003C 0002 DATPNT RMB 2 

00460 003E 0002 DIMPNT RMR 2 

00470 0040 0001 PRCNT RMB 1 

00480 0041 0003 RMB 3 

00490 0044 0002 MFMFND RMB 2 

00510 0046 0002 ARRTAR RMB 2 

00520 0048 0002 KFYWD RMR 2 

00530 004A 0001 TSIGN RMB I 

00540 004B 0001 EXP RMB 1 

00550 004C 0001 SIGOIG RMB 1 

00560 0040 0001 DECFLG RMR 1 

00570 004E 0001 TOGGLE RMB 1 

00580 004F 0001 NCMPR RMB 1 

00590 0050 0001 TNUMP RMB I 

00600 0051 0001 4NUMB RMR I 

00610 0052 0001 RN1JMP RMB I 

00620 0053 0001 LRNTNF RMB 1 

00630 0054 0001 ROIJNDV RMB I 

00640 0055 0001 ONLDOP RMB 1 

00650 0056 0001 NORSGN RMB 1 

00660 0057 0002 YLGNG RMR 2 

00670 0059 0002 MPYXX RMR 2 

00680 005B 0002 RASNUM RMR 2 

00690 005D 0002 AFSTK RMB 2 

00700 005F 0002 eqrpnt RMR 2 

00710 0061 0002 PORNOW RMR 2 

00720 0063 0002 VARPNT RMB 2 

00730 0065 0002 SBRPNT RMB 2 

00740 0067 0002 DUMMY RMR 2 

00750 0069 0006 RANNUM RMB 6 

00760 006F 0006 FORTMP RMR 6 

00770 0075 0010 SBRSTK RMB 16 

00780 0085 0001 LOAFLG RMR 1 


00800 00AC ORG SOOAC 

00810 OOAC 0002 RIJFNXT RMB 2 

00820 OOAE 0002 ENDRUF RMB 2 

00830 OOBO ORG $00R0 

00840 OOBO 0050 BUFFER RMB $50 


I/O BUFFER = RO DECIMAL 
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00860 

0100 



ORG 

$0100 

008 70 

0100 

RD 07F2 

PRHGM 

JSR 

START 

00880 

0103 

7F 07F6 


JMP 

RFADY 

00890 

0106 

54 

TNTFR 

FCC 

/TO/ 


0.107 

4F 




00900 

0108 

IF 


FCR 

$1 F 

00910 

0109 

9999 

TOPNT 

FDR 

$9999 

00920 

010B 

53 


FCC 

/STRP/ 


OlOC 

54 





010D 

45 





OIOF 

50 




00930 

0 1 OF 

1 F 


FCR 

$ 1 F 

00940 

0110 

8888 

STFPNT 

FOB 

$8888 

00950 

0112 

52 

COMMAN 

FCC 

/RON/ 


0113 

55 





0114 

4F 




00960 

01 1 5 

IF 


FOB 

$1 F 

00970 

0116 

0858 


FDR 

RON 

00980 

0118 

4C 


FCC 

/LIST/ 


01 19 

49 





01 1 A 

53 





0118 

54 




00990 

01 1C 

IF 


FCB 

$1 F 

01000 

01 ID 

0882 


FOB 

CL I ST 

01010 

01 1 F 

4F 


FCC 

/NFW/ 


0120 

45 





0121 

57 




01020 

0122 

IF 


FCP 

$1 F 

01030 

0123 

07F2 


FDR 

START 

01040 

0125 

50 


FCC 

/DAT/ 


0126 

41 





0127 

54 




01050 

0128 

IF 


FCB 

$1 F 

01060 

0129 

08D3 


FOB 

PATCH 

01070 

0128 

4C 


FCC 

/LDA/ 


012C 

4F 





0 12D 

41 




01080 

012E 

IF 


FCR 

$1 F 

01090 

032F 

09on 


FDR 

LOAD 

01100 

0131 

53 


FCC 

/SAV/ 


0132 

41 





0133 

56 




01 1 10 

0134 

IF 


FCB 

$1 F 

01120 

0135 

08R5 


FDR 

SAVF 

01130 

0137 

47 

COLTST 

FCC 

A50SUB/ 


0138 

4F 





01 39 

53 





013A 

55 





0138 

42 




01140 

013C 

IF 


FCB 

$1 F 

01150 

01 3D 

0A5A 


FOB 

GOSIJP 

01160 

0I3F 

47 


FCC 

/GOTO/ 


0140 

4F 





0141 

54 





0142 

4F 




01 1 70 

0143 

IF 


FCB 

$1 F 

01180 

0144 

0A7C 


FOB 

GOTH 

01190 

0146 

4F 


FCC 

/ON/ 


0147 

4F 




01200 

0148 

1 F 


FCR 

$1 F 

01210 

0149 

0A3R 


FDR 

ONGD 

01220 

0148 

54 


FCC 

/THFN/ 


01 4C 

48 





014D 

45 





014F 

4F 




01230 

01 4F 

IF 


FCR 

$1 F 

01240 

0150 

0A29 


FDR 

THFN 
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01250 

0152 

50 

FCC 

/PRINT/ 


0153 

5? 




0154 

49 




0155 

4F 




0156 

54 



01260 

0157 

IF 

FCR 

$1 F 

01270 

0158 

0C60 

FOP 

PRINT 

01280 

015A 

4C 

FCC 

/I. FT/ 


015B 

45 




015C 

54 



01290 

0150 

IF 

FCR 

$1 F 

01300 

015F 

OORC 

fob 

l*t 

01310 

0160 

49 

FCC 

/TNPdT/ 


0)61 

4F 




0162 

50 




0163 

55 




0164 

54 



01 320 

0165 

1 F 

FCB 

$1 F 

01 330 

0166 

0AC4 

FOR 

INPUT 

01340 

0168 

49 

FCC 

/IF/ 


0.169 

46 



01350 

0 l 6 A 

IF 

FCR 

$ 1 F 

01360 

016B 

OF DO 

FOR 

IF 

01 370 

0160 

52 

FCC 

/RFAO/ 


01 6E 

45 




016F 

41 




0170 

44 



01380 

0171 

IF 

FCB 

$1 F 

01 390 

0172 

0CI7 

FOP 

RFAO 

01 400 

0174 

44 

FCC 

/OATA/ 


0175 

41 




0176 

54 




0177 

41 



01410 

0178 

IF 

FCB 

$1 F 

01420 

01 79 

ODOF 

FOR 

REMARK 

01430 

017B 

52 

FCC 

/RFSTDRF/ 


017C 

45 




01 70 

53 




017E 

54 




017F 

4F 




0180 

52 




0181 

45 



01 440 

0182 

IF 

FCB 

SI F 

01450 

0183 

0C64 

FOB 

R c STnRF 

01460 

0185 

45 

FCC 

/ C N0/ 


0186 

4F 




0187 

44 



01470 

0188 

IF 

FCR 

$1 F 

01480 

0189 

07F6 

FOP 

Rf AOY 

0)490 

0188 

52 

FCC 

/RFTUPN/ 


0I8C 

45 




0180 

54 




018F 

55 




018F 

52 




0190 

4F 



01500 

0191 

IF 

FCB 

SI F 

01510 

0192 

0AA2 

FOR 

RETURN 

01520 

0194 

44 

FCC 

/OTM/ 


0195 

49 




0196 

40 



0)530 

0197 

1 F 

FCR 

$1 F 

01540 

0198 

0F06 

FOR 

01 M 

0)550 

019A 

46 

FCC 

/ D 0R/ 


019R 

4F 




019C 

52 



01560 

0190 

IF 

FCB 

$1 F 

01570 

019F 

0F86 

FOR 

FOR 

01580 

01 AO 

4R 

FCC 

/NFXT/ 


0 1 A 1 

45 
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01 A2 

58 




01 A3 

54 



01590 

01 A4 

IF 

FCB 

SIP 

01600 

01 A5 

0F50 

FDR 

N C XT 

01610 

01 A7 

52 

FCC 

/RFM/ 


01 A8 

45 




01 A9 

4D 



01620 

01 A A 

IF 

FCB 

$1 F 

01630 

01 AR 

ODDF 

FDR 

RPMARK 

01640 

01 AD 

41 

FCC 

/APP/ 


01 AF 

50 




0IAF 

50 



01650 

01 BO 

IF 

FCB 

SIP 

01660 

01 B1 

0910 

FDR 

APPFND 

01670 

01 B3 

53 

STOMSG FCC 

/STOP/ 


01 B4 

54 




0IB5 

4F 




01 B6 

50 



01680 

0 1 B 7 

IF 

FCR 

SIP 

01690 

01 R8 

0AB6 

FDB 

STOP 

01700 

0 1 BA 

1 F 

CGMFND FCR 

$1 F 

01710 

01 HB 

ODBC 

TMPLFT FDR 

LPT 


01 730 

OIRD 

52 

FUNCT FCC 

/RND( / 


OIBF 

4F 




01BF 

44 




01 CO 

28 



01740 

01CI 

IF 

FCR 

$ 1 F 

01750 

01C2 

10B7 

FDR 

RANDOM 

01 760 

01C4 

54 

FCC 

/T A R ( / 


0IC5 

41 




0IC6 

42 




01C7 

28 



01 770 

01C8 

1 F 

FCB 

$ 1 P 

01 780 

01C9 

0CB2 

FOB 

TAR 

01 790 

01CB 

49 

FCC 

/ TNT(/ 


OICC 

4F 




01 CD 

54 




DICE 

28 



01800 

01CF 

IF 

FCR 

SI P 

01810 

01 DO 

1079 

FDR 

I NT 

01820 

01D2 

43 

FCC 

/CHRS (/ 


0ID3 

48 




0ID4 

52 




0ID5 

24 




0ID6 

28 



01830 

0ID7 

IF 

FCR 

$1 F 

01840 

0ID8 

0CA5 

FDB 

CHR 

01850 

01 DA 

41 

FCC 

/ARS ( / 


OIDB 

42 




01 DC 

53 




01 DD 

28 



01860 

OIDF 

1 F 

FCR 

$1 F 

01870 

01DF 

1 OAF 

FDB 

ARS 

01 880 

01 F1 

53 

FCC 

/SON (/ 


01 P2 

47 




01F3 

4P 




01 F4 

28 



01890 

01 F5 

IF 

FCR 

$ 1 F 

01900 

01 F6 

1093 

FDR 

SON 

01910 

01 F8 

55 

FCC 

/'ISFR( / 


01 P9 

53 




0 1 FA 

45 




01FR 

52 




01FC 

28 
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01920 

01 ED 

IF 


FUNFND 

FOR 


$1 F 

01930 

01 EE 

106B 


FOP 


IJSFR 

01950 

01E0 

13 


RDYMSG 

FOB 


$1 3 

01960 

01 FI 

1 4 



FOB 


$1 4 

01970 

01F2 

OD 



FOR 


$00 

01980 

01F3 

OA 



FCB 


$0 A 

01990 

01 F4 

15 



FOB 


$15 

02000 

01F5 

52 



FCC 


/RFAOY/ 


01 F6 

45 







01F7 

41 







0IF8 

44 







01F9 

59 






02010 

0 1 FA 

IF 



FOB 


$ 1 F 

02020 

01 FR 

20 


OELMSG 

FCC 


/ OF 1./ 


01FC 

44 







01F0 

45 







01FE 

4C 






02030 

01 FF 

IF 



FOR 


$1 F 

02040 

0200 

10 


D GCNTL 

FOR 


$10 

02050 

0201 

16 



FCB 


$16 

02060 

0202 

IF 



FCB 


$1 F 

02070 

0203 

52 


AH AT 

FCC 


/RF-FNTFR/ 


0204 

45 







0205 

2D 







0206 

45 







0207 

4F 







0208 

54 







0209 

45 







020A 

52 






02080 

020B 

IE 



FCB 


$1 F 

02090 

020C 

45 


FRRMS1 

FCC 


/FRRDR* / 


020D 

52 







020F 

52 







020F 

4F 







0210 

52 







021 1 

23 







0212 

20 






02100 

0213 

IF 



FOR 


$1 F 

02 110 

0214 

20 


C RRMS2 

FCC 


/ IN L INF / 


0215 

49 







0216 

4F 







021 7 

20 







0218 

4C 







0219 

49 







021 A 

4E 







02 IB 

45 







021 C 

20 






02120 

02 ID 

IF 



FCB 


$1 F 

02140 

021 F 

CE 

01 FP 

OFL 

LOX 


#OFLVSG 

02150 

022 1 

8D 

6F 


BSR 


OUTPUT 

02160 

0223 

20 

07 


BRA 


K c YR00 

02170 




♦ALL PURPOSE 

KFYRO ROUTTNF 

02180 

0225 

86 

3F 

KFYRO 

LDA 

A 

#$3F OUTPUT "" 

02190 

0227 

8D 

4D 


RSR 


HUTCH 

02200 

0229 

RD 

0350 


JSR 


PRTNSP 

022 10 




♦ S'IRROIITINF 

' FNTRY WITHOOIJT "» 

02220 

022C 

CF 

OOPO 

KFYBD0 

Lnx 


#RUFFFR START OF KFYRO ROUTTNF 

02230 

022F 

80 

4 A 

KFYRDt 

BSR 


I'ICH OFT A OHARACTFR 

02240 

0231 

81 

18 


CMP 

A 

#$ 1 8 

02250 

02 33 

27 

F9 


RFQ 


D C L 

02260 

0235 

81 

OD 


CMP 

A 

/'son ts tt c/r 

022/0 

0237 

27 

2 A 


Rco 


TFXTT tf SO fxtt 

02290 

0239 

81 

OF 


CMP 

A 

#$0F 

02290 

023B 

26 

OC 


BMF 


*+14 

02 300 

0230 

86 

5 F 


lda 

A 

#$5F 

02310 

023F 

80 

35 


RSR 


OUTCH 

02 320 

024 1 

8C 

OOBO 


CPX 


#rufffr TS TT ftrst character 

02 330 

0244 

27 

F9 


RFQ 


K C YP01 TF SO, .JUST RFT.OOP 

02340 

0246 

09 



dfx 


OTHFRWTSF. PACKSPACF 
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02350 

0247 

20 

F6 


BRA 

02360 

0249 

7D 

0085 


TST 

02 370 

024C 

26 

OA 


RNF 

02 380 

024E 

8C 

OOF 8 


CPX 

02 390 

0251 

26 

05 


RNF 

02400 

0253 

C6 

21 


loa 

02410 

0255 

7F 

0828 


JMP 

02420 

0258 

A7 

00 

KFYRD2 

STA 

02430 

025A 

08 



TNX 

02440 

025R 

20 

02 


RRA 

02450 

025D 

86 

23 

CNTLIN 

LOA 

02460 

025F 

80 

15 


BSR 

024 70 

0261 

20 

C9 


RRA 

02480 

0263 

86 

IF 

TFXIT 

loa 

02490 

0265 

A7 

00 


STA 

02500 

026 7 

OF 

AF 


STX 

02510 

0269 

96 

85 


loa 

02520 

026B 

26 

02 


RNF 

02530 

0260 

80 

31 


RSR 

02540 

026F 

39 



RTS 


K c YROI AMn THPN RFLODP 

LDAFLG 

K C YRD? 

#BUFFFR+7? 

*+7 

P #$2 1 
FRROP 
A O.X 

KPYPHI 
A *'# 

DUTCH 
K c YRDO 
A #$ 1 P 
A X 

FMDRUF 
A LDAFLG 
*+4 
CRLF 


02560 *+***++++*********+*■*+*********++*++***+***++++ 

02570 + 

02580 * THIS PAOF CONTAINS FXTFPNAI. RHMTINF CAT t S 

02590 * 

02600 **+++*******+*a*+*a+***+**++***+*****++*++*+*** 

02610 0270 7F FORF HUTCH JMP SCORF HT1T2H IN MTKRIIG 


02630 0273 7F FOCP HUT4HS JMP S^OCB HUT4HS IN MtKRIJG 


02650 0276 8D 09 HUTCH BSR R9FAK 

02660 0278 7F FID! JMP SE|DI HIJTFFP TN MTKRIIG 

02680 027B PD FIAC INCH JSR S^IAC INFFF IN MI KRUG 

02690 027H 36 PSH A 

02700 027F 20 08 RRA RPFAKO 


02720 0281 36 BREAK PSH A 

02 730 0282 R6 8004 LDA A $8004 

02740 0285 2P 09 RMI RRFAKI 

02750 0287 8D F2 RSR INCH 

02760 0289 81 03 BRFAKO CMP A #503 

02770 028B 26 03 RNF RRFAKI 

02780 028D 7E 07F6 JMP R C ADY 

02790 0290 32 RRFAKI PUL A 

02800 0291 39 RTS 

02830 +UNIVFRSAL OUTPUT ROUTINE 


02840 


0292 

OUTPUT 

POU 

★ 

02850 

0292 

an 

05 


BSR 

O'lTNCR 

02860 

0294 

20 

OA 


RRA 

CRLF 

02870 

0296 

8D 

OF 


BSR 

OUTCH 

02880 

0298 

08 



TNX 


02 8 90 

0299 

A6 

00 

OUTNCR 

LOA A 

0,X 

02900 

029R 

81 

1 F 


CMP A 

#$ 1 F 

02910 

029D 

26 

F7 


RNP 

*-7 

02920 

029F 

39 



RTS 


02930 

02A0 

8D 

10 

CRLF 

RSR 

PUSHX 

02940 

02A2 

CF 

02AA 


LOX 

*CRLFST 

02950 

02A5 

80 

F2 


RSR 

OUTNCR 

02960 

02A7 

8D 

1 F 


RSR 

PULLX 

02970 

02A9 

39 



RTS 


02 9 80 

02AA 

OD 


CRLFST 

FCB 

$00 

02990 

02AB 

OA 



FCR 

$0 A 

03 000 

02AC 

15 



FCB 

$15 

03010 

02AD 

FF 



FCB 

$FF,$FF,$FF.$FF 


02AE FF 
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02AF 

FF 



02B0 

FF 



03020 02BI 

IF 

CRFND FCR 

$1 F 


03040 

02R2 

DF 

38 

PUSHX STX 


PUSHTX 

03050 

02 R 4 

DF 

3A 

LOX 


XSTACK 

03060 

02R6 

09 


OCX 



03070 

02R7 

09 


ncx 



03 080 

02R8 

DF 

3A 

STX 


XSTACK 

03090 

02BA 

36 


PSH 

A 


03 100 

02BB 

96 

38 

LDA 

A 

PUSHTX 

03110 

02BD 

A7 

00 

STA 

A 

o.x 

03120 

02BF 

96 

39 

LDA 

A 

PUSHTX+1 

03130 

02CI 

A7 

01 

STA 

A 

1 .X 

03 1 40 

02C3 

32 


PUL 

A 


03 150 

02C4 

DF 

38 

tnx 


PUSHTX 

03 160 

02C6 

39 


RTS 




03180 

02C7 

DF 

3A PULLX 

LOX 

XSTACK 

03 190 

02C9 

FF 

00 

LOX 

O.X 

03200 

02CB 

7C 

003 P 

INC 

XSTACK+1 

03210 

02CF 

7C 

003 P 

INC 

XSTACK+1 

03220 

02DI 

39 


RTS 



03 240 

02D2 

8D 

DF 

STOREX 

RSR 


PUSHX 

03250 

02D4 

BD 

0448 


JSR 


PULLAF 

03260 

02D7 

9F 

28 


STS 


SAVFSP 

032 70 

02D9 

35 



TXS 



03280 

02DA 

DF 

3A 


LDX 


XSTACK 

03290 

02DC 

FF 

00 


LHX 


O.X 

03300 

02DF 

20 

1 l 


BRA 


*+1 9 

03310 

02F0 

8D 

DO 

STORF 

RSR 


PUSHX 

03320 

02F2 

RD 

0448 


JSR 


PULLAF 

03 330 

02F5 

9F 

28 


STS 


SAVFSP 

03 340 

02F7 

35 



TXS 



03 350 

02E8 

09 



DFX 



03360 

02F9 

09 



DFX 



03370 

02HA 

09 



DFX 



03380 

02EB 

09 



DFX 



03390 

02FC 

09 



n^x 



03400 

02 FD 

09 



DFX 



03410 

02 FF 

09 



DFX 



03420 

02EF 

FF 

00 


LDX 


O.X 

03430 

02FI 

C6 

05 


LDA 

R 

#5 

03440 

02F3 

32 



PUL 

A 


03450 

02F4 

A7 

00 


STA 

A 

O.X 

03460 

02F6 

08 



INX 



034 70 

02F7 

5A 



D C C 

R 


03 480 

02F8 

26 

F9 


BNF 


★-5 

03490 

02FA 

32 



PUL 

A 


03500 

02FB 

3? 



PUL 

A 


03510 

02FC 

A7 

00 


STA 

A 

O.X 

03520 

02FF 

9F 

28 


LDS 


SAVFSP 

03530 

0300 

20 

C5 


RRA 


PULLX 


03550 

0302 

8D 

AF 

TNDX 

RSR 

PUSHX 

03560 

0304 

9F 

28 


STS 

SAVFSP 

03570 

0306 

35 



TXS 


03580 

0307 

20 

OA 


RRA 

TNDO 
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03590 

0309 

8D 

A7 

INP 

BSR 


PUSHX 

03600 

0308 

BD 

0448 


JSR 


PULLAF 

03610 

030E 

9F 

28 


STS 


SAVFSP 

03620 

0310 

AF 

00 


LOS 


O.X 

03630 

0312 

34 



n^s 



03640 

0313 

C6 

05 

TNOO 

loa 

R 

#5 

03650 

0315 

OF 

5P 


LDX 


A^STK 

03 660 

0317 

32 



PUL 

A 


03670 

031 8 

A7 

00 


STA 

A 

O.X 

03680 

031 A 

08 



TNX 



03690 

031 B 

5A 



OFC 

R 


03700 

031 C 

26 

F9 


RNF 


*-5 

03710 

031 E 

32 



PUL 

A 


03 720 

031 F 

A7 

01 


STA 

A 

1 ,X 

03 730 

0321 

6F 

00 


CLR 


O.X 

03 740 

0323 

9F 

28 


LOS 


SAVFSP 

0J 750 

0325 

PP 

043F 


JSR 


PMSHAP 

03 760 

0328 

20 

9D 


BRA 


PULLX 


03780 

0 32 A 

PD 

0273 HUTLJN 

JSR 


n'IT4HS 

03 790 

032D 

A6 

00 

loa 

A 

O.X 

03800 

032F 

08 


I NX 



03810 

0330 

PD 

028? 

JSR 


PUSHX 

03820 

0333 

97 

49 

STA 

A 

K C YWP+I 

03830 

0335 

DF 

48 

LDX 


K C YWP 

03840 

0337 

09 


DFX 



03 850 

0338 

09 


DFX 



03860 

0339 

A6 

00 

LPA 

A 

O.X 

03870 

033R 

81 

IF 

CMP 

A 

1 F 

03880 

033D 

26 

F9 

RNF 


*-5 

03890 

033F 

08 


I NX 



03900 

0340 

08 


INX 



03910 

034 1 

08 


I NX 



03920 

0342 

PD 

0299 

JSR 


OUTNCR 

03930 

0345 

8D 

09 

RSR 


PRINSP 

03940 

0347 

7F 

0040 

CLR 


PRCNT 

03950 

034 A 

PD 

02C7 

JSR 


PULLX 

03960 

034D 

7F 

0292 

JMP 


OUTPUT 


03 980 

0350 

36 


PRINSP PSH 

A 


03990 

0351 

86 

20 

LPA 

A 

#$20 

04000 

0353 

PD 

0CF6 

JSR 


DUTCHA 

04010 

0356 

3? 


PUL 

A 


04020 

0357 

39 


RTS 




04040 

0358 

BD 

0744 

ftnvar 

JSR 

SKTPSP 

04050 

035B 

BP 

042 A 


JSR 

TSTLTR 

04060 

035H 

25 

26 


PCS 

FTNVI1 

04070 

0360 

16 


F INV 1 

TAP 


04080 

0361 

A6 

01 


LPA A 

1 , x 

04090 

0363 

BD 

042 A 


JSR 

TSTLTR 

04100 

0366 

25 

20 


RCS 

F T NV? 

04110 

0368 

BD 

0789 


JSR 

FCODF 

04120 

036B 

RP 

02R2 


JSR 

PUSHX 

04130 

036F 

PP 

34 


LDX 

RASPNT 

04140 

0370 

PP 

04R 1 


JSR 

PARFXP 

04150 

0373 

DF 

34 


STX 

BASPNT 

04160 

0375 

RP 

02C7 


JSR 

PULLX 
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04170 

0378 

FF 

00 


LDX 

04 180 

037A 

AD 

00 


JSR 

04190 

037C 

BD 

043F 


JSR 

04200 

037F 

DF 

34 


LDX 

04210 

0381 

31 



IMS 

04 220 

0382 

31 



IMS 

04230 

0383 

31 



IMS 

04240 

0384 

31 



IMS 

04250 

0385 

39 



RTS 

04 260 

0386 

OB 


FI MV 11 

SFV 

04270 

0387 

39 



RTS 

04280 

0388 

BD 

0432 

FI MV2 

JSR 

04290 

038B 

24 

07 


BCC 

04300 

0380 

81 

28 


CVP 

04310 

038F 

27 

03 


BFQ 

04320 

0391 

09 



DFX 

04 3 30 

0392 

86 

20 


LDA 

04 340 

0394 

08 


FI MV3 

TMX 

04 350 

0395 

08 



TMX 

04 360 

0396 

BD 

02B2 


JSR 

04370 

0399 

DF 

2A 


LDX 

04 3 80 

039B 

9C 

46 

FINV4 

CPX 

04 390 

039D 

OD 



SFC 

04400 

039E 

27 

09 


BFO 

04410 

03 AO 

HI 

00 


CMP 

04420 

03A2 

26 

OC 


BMF 

04 430 

03A4 

A 1 

01 


CMP 

04440 

03A6 

26 

08 


RNF 

04450 

03A8 

OC 



CLC 

04 460 

03A9 

DF 

63 

FIMV5 

STX 

04 470 

03AB 

BD 

02C7 


JSR 

04 48 0 

03AF 

OA 



CLV 

04490 

03AF 

39 



RTS 

04510 

03B0 

36 


FINV6 

PSH 

04 520 

0381 

A6 

01 


LDA 

04530 

03B3 

81 

28 


CMP 

04 5 40 

0385 

32 



P’JL 

04 550 

03B6 

27 

05 


RFO 

04560 

03B8 

BD 

0457 


JSR 

04570 

03BB 

20 

DF 


RRA 

04 580 

03BD 

FF 

04 

FINV7 

LDX 

04590 

03BF 

20 

DA 


RRA 


o.x 

o.x 

P'JSHAF 

RASPNT 

STNC^ FUNCTION CAM ONLY RF 
ON RIGHT OF cypp VHP SKIP 

niRFCTT-Y FROM TFRM 


T c STNO 

FTNV3 

#'( 

FT MV 3 

#$20 


P'ISHX 

N C XTRA 

ARRTAR 

FTNV5 
O.X 
FTNV6 
1 .X 
FTNV6 

VARPNT 

PMLLX 


1 , X 
#'< 

FTNV7 

TMXATF 

FTNV4 

4.X 

FTNV4 


04610 

03C1 

BD 

0281 

TS TV 

JSR 


BRFAK 

04620 

03C4 

8D 

92 


RSR 


FTNVAR 

04630 

03C6 

28 

01 


BVC 


TSTV 1 

04640 

03C8 

39 



RTS 



04650 

03C9 

36 


TSTV 1 

PSH 

A 


04 660 

D3CA 

25 

31 


RCS 


TSTV 4 

04670 

03CC 

DF 

34 


STX 


RASPNT 

04680 

03CF 

DF 

63 


LDX 


VARPNT 

04690 

03D0 

81 

28 


CMP 

A 

»» ( 

04700 

03D2 

27 

15 


R c 0 


TSTV 3 

04710 

03D4 

08 


TSTVI1 

I NX 



04 720 

03D5 

08 



IMX 



04 730 

03D6 

DF 

63 

TSTV2 

STX 


VARPNT 

04740 

D3D8 

DF 

5D 


LDX 


A C STK 

04750 

03DA 

96 

63 


LDA 

A 

VARPNT 

04 760 

03DC 

A7 

00 


STA 

A 

O.X 

04 770 

03DF 

96 

64 


LDA 

A 

VARPNT +1 

04 780 

03E0 

A 7 

01 


STA 

A 

1 .X 

04790 

03F2 

8D 

5 A 


RSR 


PUSHAF 

04800 

03E4 

32 



P'lL 

A 


04810 

03E5 

DF 

34 


LDX 


RASPNT 
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04820 

03F7 

OC 



CLC 



04 830 

03F8 

39 



RTS 



04 840 

03F9 

BD 

0DF4 

TSTV3 

JSR 


G C TP AR 

04850 

03FC 

24 

04 


BCC 


TSTV33 

04 860 

03FF 

8D 

77 

TSTV31 

RSR 


FIX 

04 8 70 

03F0 

20 

01 


RR A 


TSTV34 

04880 

03F2 

5F 


TSTV33 

CLR 

R 


04890 

03F3 

37 


TSTV34 

PSH 

R 


04900 

03F4 

8D 

71 


RSR 


F T X 

04910 

03F6 

17 



TRA 



04920 

03F7 

33 



PUL 

R 


04930 

03F8 

RD 

0F59 


JSR 


S'IRCAL 

04 940 

03FR 

20 

09 


RRA 


TSTV? 

04 950 

03FD 

OF 

34 

TSTV4 

STX 


RASPNT 

04 960 

03FF 

OF 

63 


LOX 


VARPNT 

04 9 70 

0401 

F7 

00 


STA 

R 

O.X 

04980 

0403 

A7 

01 


STA 

A 

1 .X 

04 990 

0405 

81 

28 


CMP 

A 

#M 

05000 

0407 

26 

19 


BNF 


TSTV5 

0501 0 

0409 

C6 

OA 


LOA 

R 

#10 

05020 

040R 

F7 

0? 


STA 

R 

2.X 

05030 

040D 

F7 

03 


STA 

B 

3.X 

05040 

040F 

BD 

0DF4 


JSR 


G C TPAR 

05050 

0412 

25 

03 


RCS 


TSTV44 

05060 

041 4 

5F 



CLR 

R 


05070 

0415 

F7 

03 


STA 

R 

3. X 

05080 

0417 

A6 

02 

TSTV44 

LDA 

A 

2.X 

05090 

0419 

BD 

0F4 1 


JSR 


DTMCAL 

05100 

041 C 

6D 

03 


TST 


3, X 

05 1 10 

041 F 

27 

02 


BFQ 


TSTV33 

05 120 

0420 

20 

cc 


RRA 


TSTV31 

05 1 30 

0422 

8D 

33 

TSTV5 

RSR 


INXATF 

05140 

0424 

DF 

46 


STX 


ARRTAR 

05150 

0426 

DR 

63 


LOX 


VARPNT 

05)60 

0428 

20 

AA 


BRA 


TSTV11 

05 190 

042 A 

81 

4 1 

TSTLTR 

CMP 

A 

*$41 

05200 

042C 

2P 

OC 


RMT 


NINO 

05210 

042F 

81 

5A 


CMP 

A 

#$5A 

05220 

0430 

2F 

OA 


BLF 


Y c SNO 


05240 

0432 

81 

30 

TPSTNG 

CMP A 

#$30 

05 250 

0434 

2B 

04 


RMT 

NO NO 

05 260 

0436 

81 

39 


CMP A 

#$39 

052 70 

0438 

2F 

02 


RLF 

Y c SNO 

05280 

043A 

OD 


NO NO 

S C C 


05290 

043B 

39 



RTS 


05 300 

043C 

OC 


YFSNO 

CLC 


05310 

043D 

39 



RTS 



05330 

043E 

DF 

50 

PUSHAF LOX 

A^STK 

05340 

0440 

8D 

16 

RSR 

INXSH/ 

05 350 

0442 

DF 

50 

STX 

A C STK 

05360 

0444 

39 
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08870 

06BC 

BD 

0528 


JSR 


NFGACC 

08 880 

06BF 

8B 

80 


ADO 

A 

#$80 

08890 

06CI 

97 

4A 

MDS3 

STA 

A 

TS TON 

08900 

06C3 

A6 

06 


LOA 

A 

6.X 

08910 

06C5 

AB 

OD 


ADD 

A 

1 3.X 

08920 

06C7 

28 

05 


PVC 


M0S4 

08930 

06C9 

86 

78 


LOA 

A 

#120 

08940 

06CB 

24 

01 


BCC 


MDS4 

08950 

06CD 

40 



NFG 

A 


08960 

06CF 

97 

50 

MDS4 

STA 

A 

TNUMB 

08970 

06D0 

39 



RTS 




08990 

06D1 

BD 

0445 

MPY 

JSR 


PSHXPA 

09000 

06D4 

8D 

02 


RSR 


MOSTGN 

09010 

06D6 

OF 

59 


STX 


MPYXX 

09020 

0608 

BD 

043F 


JSR 


PUSHAF 

09030 

06DB 

BD 

062C 


JSR 


SNAP 

09040 

06DF 

BD 

OPDO 


JSR 


CLRACC 

09050 

06H t 

86 

09 


loa 

A 

#9 

09060 

06F3 

DF 

59 

MPY4 

LOX 


MPYXX 

09070 

06F5 

F6 

00 


LOA 

R 

O.X 

09080 

06F7 

RD 

0552 


JSR 


ALLFFT 

09090 

06FA 

5D 


MPY5 

TST 

R 


09100 

06FB 

27 

06 


RFC 


MPY6 

09110 

06FD 

RD 

0645 


JSR 


AOOFR 

09120 

06F0 

5A 



DEC 

B 
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09130 

06F1 

20 

F7 


RRA 


MPY5 

091 40 

06F3 

DF 

5D 

MPY6 

LDX 


A C STK 

09150 

06F5 

BD 

0458 


JSR 


INXSFV 

09160 

06F8 

BO 

0578 


JSR 


LRIGHT 

091 70 

06FB 

4 A 



DFC 

A 


09180 

06FC 

26 

F5 


RMF 


MPY4 

09190 

06FF 

BD 

0448 

MDFXIT 

JSR 


PULLAF 

09200 

0701 

BD 

062 C 


JSR 


SWAP 

09210 

0704 

96 

50 


LOA 

A 

TNIJMR 

09220 

0706 

A7 

06 


STA 

A 

6.X 

09230 

0708 

BD 

059 F 


JSR 


NDRMPA 

0924 0 

070B 

70 

004 A 


TST 


TSIGN 

09250 

070F 

2A 

03 


BPL 


M0FX2 

09260 

0710 

RD 

05 IF 


JSR 


N C G 

092 70 

0713 

7E 

02C7 

MDFX2 

JMP 


PULLX 


09300 

0716 

96 

32 

F INDNG 

LDA 

A 

HTGHLN 

09310 

0718 

D6 

33 


lda 

R 

HTGHLN+ 

09320 

071 A 

DO 

31 


SOP 

B 

PACKLN+ 

09330 

071 C 

92 

30 


SRC 

A 

PACKLN 

09340 

071 H 

25 

1 F 


RCS 


HTRALL 

09350 

0720 

DF 

2F 

FTNDNI 

LDX 


SOtIRCF 

09360 

0722 

96 

30 

FIMDO 

LDA 

A 

PACKLN 

09370 

0724 

D6 

31 


LDA 

B 

PACKLN+ 

09380 

0726 

FO 

01 


SOB 

B 

1 .X 

09 390 

0728 

A2 

00 


SRC 

A 

O.X 

09400 

072 A 

25 

1 4 


BCS 


* + 22 

09410 

072C 

26 

03 


BNF 


*+5 

09420 

072F 

5D 



TST 

B 


09430 

072F 

27 

10 


BFO 


*+1 8 

09440 

0731 

08 



TNX 



09 450 

0732 

08 



INX 



09460 

0733 

A6 

00 


LDA 

A 

O.X 

09470 

0735 

81 

IF 


CMP 

A 

#<> 1 F 

09480 

0737 

26 

F9 


RNF 


*-5 

09490 

0739 

08 



INX 



09500 

073 A 

9C 

2 A 


CPX 


NFXTBA 

09510 

073C 

26 

F4 


RNF 


FTNDO 

09520 

073F 

DF 

PA 

HIBALL 

LDX 


N^XTRA 

09530 

0740 

OD 



SFC 



09540 

0741 

DF 

2C 


STX 


WORKPA 

09550 

0743 

39 



RTS 




09570 

0744 

A6 

00 

SKTPSP LOA A 

O.X 

09580 

0746 

Bt 

20 

CMP A 

#$20 

09590 

0748 

26 

03 

BNF 

* + 5 

09600 

074 A 

08 


TNXSKP TNX 


09610 

074R 

20 

F7 

BRA 

SKIPSP 

09620 

074D 

39 


RTS 



09640 

074F 

BD 

0B28 

LINFNO 

JSR 


TSTN 

09650 

0751 

24 

05 


BCC 


*+7 

09660 

0753 

C6 

07 

L INFO 

LDA 

B 

#7 

09670 

0755 

7F 

0828 


JMP 


FRRDR 

09 680 

0758 

DF 

AC 


STX 


BUFNXT 

09690 

075 A 

BD 

0448 


JSR 


P'JLLAF 

09700 

075D 

F6 

06 


lda 

R 

6.X 

09 71 0 

075F 

23 

F2 


BLS 


LINFO 

09 720 

0761 

Cl 

04 


CMP 

R 

#4 

09730 

0763 

2F 

FF 


BGT 


LINFO 

09740 

0765 

86 

05 


LDA 

A 

#5 

09 750 

0767 

10 



SRA 



09 760 

0768 

4D 



TST 

A 


09770 

0769 

27 

06 


B c 0 


*+8 

09780 

076R 

RD 

0578 


JSR 


LRIGHT 

09 790 

076F 

4 A 



DFC 

A 
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09800 

076F 

20 

F7 

RRA 


*—7 

09810 

0771 

A6 

01 

lda 

A 

1 ,X 

09820 

07/3 

97 

30 

STA 

A 

PACKI.N 

09830 

0775 

A6 

02 

LDA 

A 

?,x 

09840 

0777 

97 

31 

STA 

A 

PACKLN+1 

09850 

0779 

DE 

AC 

LDX 


BUFNXT 

09860 

0778 

OC 


CLC 



09870 

0 77C 

39 


RTS 




09 890 

077D 

DF 

34 

NXTLTN LDX 

BASPNT 

09 900 

077F 

A6 

00 

lda A 

0,X 

099)0 

0781 

08 


I NX 


09920 

0782 

81 

1 P 

CMP A 

IF 

09930 

0784 

26 

F9 

RMF 

*-5 

09940 

0786 

DF 

36 

STX 

RASLIN 

09950 

0788 

39 


RTS 



09970 

0789 

DF 

AC FCODF 

STX 

R'IFNXT 

09 980 

078R 

9F 

28 

STS 

SAVPSP 

09990 

078D 

CF 

01BC 

LDX 

tfPlJNCT- 

10000 

0790 

20 

12 

BRA 

LDDP3 


10020 

0792 

DF 

AC CCINT 

STX 

R'IFNXT 

10030 

0794 

9F 

28 

STS 

SAVPSP 

10040 

0796 

CF 

0105 

LDX 

#!NTFR- 

10050 

0799 

20 

09 

BRA 

LD0P3 


10070 

079B 

8D 

A7 

ccddf 

BSR 


SKIPSP 

10080 

079D 

DF 

AC 


STX 


R'IFNXT 

10090 

079F 

9F 

28 


STS 


SAVPSP 

10100 

07A l 

CF 

0111 


LDX 


#COMMAN- 

101 10 

07A4 

9F 

AC 

LOOP3 

LDS 


BUFNXT 

10120 

07A6 

34 



DPS 



10130 

07A7 

08 



TNX 



10140 

07A8 

32 



PUL 

A 


10150 

07A9 

81 

20 


CMP 

A 

#<520 

10160 

07AB 

27 

FB 


RFQ 


*-3 

10170 

0 7AD 

F6 

00 


LDA 

R 

O.X 

10180 

07AF 

Cl 

IF 


CMP 

R 

IF 

10190 

07RI 

27 

18 


RPO 


★<■26 

10200 

07R3 

1 1 



CBA 



10210 

07R4 

27 

FI 


RPO 


*-1 3 

10220 

07R6 

08 


LOOP 5 

I NX 



10230 

07R7 

8C 

01 BA 


CPX 


★COMPND 


10240 

07BA 

27 

1 7 

RPO 

CCFXIT 

10250 

07BC 

8C 

01 ED 

CPX 

★PUNFND 

10260 

0 78F 

27 

18 

RPQ 

FUNCFX 

10270 

07CI 

F6 

00 

lda b 

O.X 

10280 

07C3 

Cl 

IF 

CMP R 

#$1F 

10290 

07C5 

26 

FF 

RNF 

LDDP5 

10300 

07C7 

08 


TNX 


10310 

07C8 

08 


INX 


10320 

07C9 

20 

D9 

RRA 

LOOP 3 

10330 

07CB 

08 


INX 


10340 

07CC 

9F 

AC 

STS 

B'JFNXT 

10350 

07CE 

9F 

34 

STS 

BASPNT 

10360 

07D0 

9F 

28 

LDS 

SAVFSP 

10370 

07D2 

39 


RTS 


10380 

07D3 

9F 

28 

CCPXIT LDS 

SAVPSP 
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10390 

07D5 

CF 

01 BB 


LDX 

10400 

07D8 

39 



RTS 

10410 

0709 

7F 

OBI 8 

FUNCFX 

JMP 

10440 

07DC 

CF 

1200 

NHWSUB 

LOX 

10450 

07DF 

DF 

2F 


STX 

10460 

07FI 

DF 

2 A 


STX 

10470 

07F3 

DF 

46 


STX 

10480 

07E5 

4F 



CLR 

10490 

07F6 

97 

32 


STA 

10500 

07F8 

97 

33 


STA 

10510 

07FA 

97 

40 


STA 

10520 

07FC 

CF 

1078 


LOX 

10530 

07FF 

DF 

67 


STX 

10540 

07F1 

39 



RTS 
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# T MPl.PT 

DRLLTR 
#p TLF 
SDURCF 
N C XTRA 
ARRTAR 

HIGHt.N 
HTGHLN+| 
PROMT 
★DUMRTS 
DUMMY 


10560 




★START 

OF 1 

WAIN PROGRAM 

105 70 




★ 



10580 




★ 



10590 

07F2 

80 

F8 

START 

BSR 

NFWSUR 

10600 

07F4 

20 

65 


RRA 

RUN 

10610 

07F6 

8F 

A045 

RFAOY 

LOS 

*$A045 

10620 

07F9 

CF 

A07F 


LDX 

*$A07F 

10630 

07FC 

OF 

3A 


STX 

XSTACK 

10640 

07FF 

7F 

0085 


CLR 

LOAFLG 

10650 

0801 

CE 

01FO 


LOX 

#RDYMSG 

10660 

0804 

BD 

029? 


JSR 

OUTPUT 

10670 

0807 

7F 

0040 

NFWLIN 

CLR 

PRCNT 

10680 

080 A 

BD 

0250 


JSR 

CMTLTN 

10690 

0800 

CF 

OORO 


LOX 

#Rl)FFFR 

10 700 

0810 

BD 

0744 


JSR 

SKIPSP 

10710 

081 3 

BD 

0432 


JSR 

TPSTNO 

10720 

0816 

25 

05 


BCS 

*★7 

10730 

0818 

RD 

0949 


JSR 

NUMRPR 

10740 

081 R 

20 

FA 


RRA 

NFWLIN 

10750 

0810 

81 

IF 


CMP 

A 1 F 

10760 

081 F 

27 

F6 


RPQ 

NFWLIN 

10 770 

0821 

PD 

079B 


JSR 

ccnnp 

10780 

0824 

FF 

00 


LOX 

O.X 

10790 

0826 

6F 

00 


JMP 

o.x 


10810 

0828 

8F 

A045 

PRRDR LOS 

#$ A045 

10820 

082B 

BD 

02AO 

JSR 

CRLF 

10830 

082E 

CF 

020C 

LDX 

*PRRMSI 

10840 

0831 

PD 

0299 

JSR 

OUTNCR 

10850 

0834 

07 

20 

STA R 

IMDFX1 

10860 

0836 

CF 

0020 

LDX 

★INDFX1 

108/0 

0839 

BD 

0270 

JSR 

n'!T?H 

10880 

033C 

CP 

0214 

LOX 

*PRRMS? 

10890 

083F 

PD 

0299 

JSR 

OMTNCR 

10900 

0842 

DF 

5B 

LOX 

RASNUM 

10910 

0844 

FF 

00 

LDX 

O.X 

10920 

0846 

DF 

30 

STX 

PACKLN 

10930 

0848 

CF 

0030 

LDX 

★PACKLM 

10940 

084R 

96 

34 

LDA A 

RASPNT 

10950 

084D 

26 

04 

RNF 

*+6 

10960 

084F 

6F 

00 

CLR 

O.X 

10970 

0851 

6F 

01 

CLR 

1 .X 

10980 

0853 

PD 

0273 

PRRDR2 JSR 

n'JT4HS 

10990 

0856 

BD 

02A0 

JSR 

CRLF 

1 1000 

0859 

20 

9R 

RRA 

RPADY 
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11020 085 B DF 2F RUN LDX S01JRCF WITH TFXT R1.IFFFR PH TNT C R 

II030 085D DF 3C STX DATPNT 

11040 085F DF 36 STX RASLIN 

11050 0861 CF 0075 LDX #SRRSTK 

11060 0864 DF 65 STX SRRPNT 

11070 0866 CF 1180 LDX #FORSTK 

11080 0869 DF 5F STX FORPNT 

11090 086B DF 2A LDX N C XTBA 

11100 086D DF 46 STX ARRTAR 

11110 086F 4F CLR A 

11120 0870 09 D^x 

11130 0871 08 I MX 

11140 0872 A7 00 STA A 0,X 

11150 0874 9C 44 CPX MPMFND 

11160 0876 27 07 RFO *+0 

11170 0878 A6 00 LOA A O.X 

11180 087A 27 F5 RFO *-9 

1 I 190 087C 09 DPX 

11200 087D DF 44 STX M C MFND 

11210 087F 7F OAOO JMP PASIC 


1 1230 

0882 

CF 

0200 

CL 1ST 

LDX 


4PGCNTL 

11240 

0885 

RD 

0292 


JSR 


OUTPUT 

1 1250 

0888 

DF 

34 


LDX 


RASPNT 

11260 

088A 

BD 

074 4 


JSR 


SKIPSP 

112/0 

0880 

81 

IF 


CMP 

A 

1 f 

1 1280 

088F 

27 

?B 


RFO 


CLI ST4 

11290 

0891 

BD 

074 F 


JSR 


LINFNO 

11300 

0894 

DF 

34 


STX 


RASPNT 

11310 

0896 

BD 

0720 


JSR 


FT NON 1 

11320 

0899 

DF 

24 


STX 


TMDPX3 

11330 

089B 

DF 

34 


LDX 


BASPNT 

1 1 340 

089D 

BD 

0744 


JSR 


SKIPSP 

11350 

08A0 

81 

IF 


CMP 

A 

1 F 

11360 

08A2 

27 

04 


RFO 


CLIST3 

11370 

08A4 

08 



I MX 



11380 

08A5 

BD 

074 F 


JSR 


LINFNO 

11390 

08A8 

4F 


CLIST3 

CLR 

A 


11400 

08A9 

C6 

01 


LDA 

B 

#1 

1 1410 

08AB 

DR 

31 


ADD 

B 

PACKLN+ 

1 1420 

08AD 

19 



DAA 



11430 

08AE 

D7 

31 


STA 

R 

PACKLN+ 

1 1440 

08B0 

99 

30 


ADC 

A 

PACKLN 

11450 

08B2 

19 



DAA 



11460 

08B3 

97 

30 


STA 

A 

PACKLN 

11470 

08B5 

BD 

0720 


JSR 


FTNDN1 

11480 

08R8 

DF 

24 


LDX 


IMDFX3 

11490 

08RA 

20 

06 


BRA 


CL I STS 

11500 

08BC 

DE 

2 A 

CLIST4 

LDX 


NFXTRA 

11510 

08RE 

DF 

2C 


STX 


WORKBA 

11520 

08C0 

DE 

2F 


LDX 


SOURCF 

11530 

08C2 

9C 

2C 

CLIST5 

CPX 


WORKBA 

11540 

08C4 

27 

OA 


B c 0 


CLFXT 

11550 

08C6 

9C 

2 A 


CPX 


N C XTRA 

11560 

08C8 

27 

06 


BFO 


CLFXT 

11570 

08CA 

BD 

032 A 


JSR 


OUTLTN 

11580 

08CD 

08 



I MX 



11590 

08CE 

20 

F2 


PRA 


CLTSTS 

11600 

08D0 

7F 

ODDF 

CLFXT 

JMP 


REMARK 


11620 

08D3 

RD 

077D PATCH 

JSR 

NXTLIN 

11630 

08D6 

CF 

OAOO 

LDX 

#BASIC 

11640 

08D9 

FF 

A046 

STX 

SA046 
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1 1650 

08DC 

8F 

A040 

LOS 

#$A040 

1 1660 

08DF 

RF 

A008 

STS 

$ A 008 

1 1670 

08E2 

7F 

FOR 3 

JMP 

$ C 0P3 


1 1690 

08E5 

OF 

2F 

SAVF 

Lnx 


SGURCF 

1 1700 

08E7 

86 

12 


LDA 

A 

#$1? 

11710 

08E9 

BD 

0276 


JSR 


GUTCH 

1 1 720 

08EC 

8D 

45 


RSR 


D C LAY2 

1 1 730 

08EE 

8D 

43 


RSR 


0FLAY2 

1 1 740 

08F0 

8D 

4C 


RSR 


L C ADFR 

11750 

08F2 

9C 

2 A 

SAVFI 

CPX 


N C XTBA 

1 1 760 

08F4 

27 

OD 


RFO 


SAVF5 

1 1 770 

08F6 

86 

02 


LOA 

A 

#$02 

1 1 780 

08F8 

BD 

0276 


JSR 


G1JTCH 

1 1 790 

08FB 

BI) 

032 A 


JSR 


OUTI.TN 

l 1800 

08FF 

08 



I NX 



11810 

08FF 

80 

34 


BSR 


D^LAY 

1 1820 

0901 

20 

FF 


BRA 


SAVP1 

1 1830 

0903 

86 

03 

SAVF5 

LOA 

A 

#$03 

1 1840 

0905 

BD 

0276 


JSR 


HUTCH 

11850 

0908 

8D 

34 


RSR 


L^ADFR 

1 1860 

090 A 

7F 

07F6 


JMP 


R c AOY 


1 1 880 

090D 

BD 

07DC 

LOAD 

JSR 


NFWSUR 

1 1890 

0910 

86 

1 1 

APPFND 

LDA 

A 

#$ 1 l 

1 1900 

0912 

97 

85 


STA 

A 

LGAFLO 

1 1910 

0914 

BD 

0276 


JSR 


OUTCH 

1 1920 

091 7 

RD 

027B 

LOAD 1 

JSR 


IMCH 

1 1930 

091 A 

81 

02 


CMP 

A 

#$02 

t 1940 

091C 

26 

F9 


BMP 


LG ADI 

1 1950 

091 F 

BD 

02 7 P 


JSR 


IMCH 

1 1 960. 

0921 

BD 

0432 


JSR 


T c STNO 

1 1970 

092 4 

25 

F4 


BCS 


LG A D l + 3 

1 I960 

0926 

CF 

OOPO 


LDX 


*RUFFFR 

1 1990 

0929 

BD 

0231 


JSR 


K c YBD0+5 

12000 

092C 

CF 

OOPO 


LDX 


#R1IFFFR 

12010 

092F 

8D 

18 


BSR 


N'JMBFR 

12020 

0931 

20 

F4 


BRA 


LG ADI 


12040 

0933 

8D 

00 

OFLAY? 

BSR 


ncj.AY 

12060 

0935 

5F 


OFLAY 

CLR 

R 


12070 

0936 

4F 



CLR 

A 


12080 

0937 

4 A 


DFLAY3 

DEC 

A 


12090 

0938 

26 

FO 


RNF 


DFI.AY3 

12100 

093A 

5A 



DFC 

B 


12110 

093B 

26 

F9 


BNF 


d c lay+ i 

12120 

093D 

39 



RTS 




12140 

093F 

C6 

32 

LFADFR LDA 

R 

#50 

12150 

0940 

86 

FF 

LnA 

A 

*$FF 

12160 

0942 

BD 

0276 

JSR 


DUTCH 

12170 

0945 

5A 


DFC 

R 


12 180 

0946 

26 

F8 

BNF 


LFADFR+2 

12190 

0948 

39 


RTS 
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12210 

0949 

RD 

074F 

NIJMRFR 

JSR 

ltnfno 


1 2220 

094C 

ro 

0716 

MUM1 

JSR 

FINDNO 


12230 

094F 

24 

13 


BCC 

O c LRFP 


1 2240 


* 

YOU 1 

4AVF TPFNTICAL 

NIJMBFR 

AND U MUST OFI.FTF AND TN 

12250 

0951 

DF 

AC 


LOX 

BUFNXT 


12260 

0953 

BD 

0744 


JSR 

SKIPSP 


12270 

0956 

81 

IF 


CMP A 

#$ 1 F 


1 2280 

0958 

27 

21 


BFO 

NCXTT 


12290 

095 A 

DF 

?C 


LOX 

WORKBA 


12300 

095C 

9C 

2 A 


CPX 

N C XTBA 


12310 

095E 

27 

1C 


RFC 

CAPPFN 

IF AT cun FTLc 

12320 




★ YOU 1 

mfrfly 

APPFND 


12 330 




* OTHFRWtSF JUST TNSFRT AND PF'PIRM 

12 340 

0960 

8D 

48 


RSR 

TNSFRT 


12350 

0962 

20 

1 7 


RRA 

nfxtt 


12360 

0964 

OF 

AC 

oflrfp 

LOX 

BUFNXT 

ncj FTRST CHARACTFR 
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39 



RTS 




15640 

ORDD 

RD 

02B2 

CLRACC JSR 


PUSHX 

15650 

ORFO 

37 


PSH 

B 


15 660 

0BE1 

C6 

07 

loa 

R 

#7 

15670 

0RF3 

DF 

5D 

LOX 


APSTK 

15680 

0RF5 

6F 

00 

CLR 


O.X 

15690 

0BF7 

08 


TNX 



15700 

0RF8 

5A 


dpc 

B 


15710 

0BF9 

26 

FA 

RNF 


*-4 

15720 

ORFB 

7F 

004 B 

CLR 


FXP 

15730 

ORFF 

33 


PUL 

B 


15740 

ORFF 

7F 

02C7 

JMP 


PHLLX 


15760 

0BF2 

A6 

00 

FORMFX 

LDA 

A 

O.X 

15770 

0BF4 

BD 

043? 


JSR 


T c STNO 

15780 

0BF7 

24 

05 


BCC 


*+7 

15790 

0BF9 

C6 

02 

TNNFR 

LDA 

R 

#2 

15800 

OBFB 

7F 

0828 


JMP 


FRROR 

15810 

OBFF 

80 

30 


SUR 

A 

#$30 

15820 

OCOO 

16 



TAP 



15830 

0C01 

08 



INX 



15840 

0C02 

A6 

00 


LDA 

A 

O.X 

15850 

0C04 

BD 

0432 


JSR 


TFSTNO 

15860 

0C07 

25 

00 


BCS 


*+15 

15870 

0C09 

58 



ASL 

B 


15880 

OCOA 

1 7 



TRA 



15890 

OCOB 

58 



ASL 

B 


15 900 

OCOC 

58 



ASL 

B 


15910 

OCOD 

1 R 



ABA 



15920 

OCOF 

16 



TAR 



15930 

OCOF 

A6 

00 


LDA 

A 

O.X 

15940 

OCI1 

80 

30 


SUB 

A 

#$30 

15950 

0C1 3 

IB 



ARA 



15960 

OCI 4 

16 



TAB 



15970 

OCI 5 

08 



TNX 



15980 

OCI 6 

39 



RTS 
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16000 

0C1 7 

DE 

34 

RFAD 

LDX 


16010 

OCl 9 

BD 

03C1 

RFADI 

JSP 


16020 

OCIC 

25 

3F 


BCS 


16030 

OCl E 

OF 

34 


STX 


16040 

0C20 

DE 

3C 


LDX 


16050 

0C22 

9C 

2F 


CPX 


16060 

0C24 

27 

1C 


BFQ 


16070 

0C26 

BD 

OBID 

RFAD? 

JSR 


16080 

0C29 

24 

22 


BCC 


16090 

0C2B 

09 



D C X 


16100 

0C2C 

A6 

00 


lda 

A 

16 1 10 

0C2F 

81 

1 F 


CMP 

A 

16120 

0C30 

27 

05 


RFO 


16130 

OC32 

C6 

19 

RDFRR 

lda 

R 

16140 

0C34 

7F 

0828 


JMP 


16150 

0C37 

9C 

2A 

RRA03 

CPX 


16160 

0C39 

27 

F7 


RFO 


16170 

0C3B 

A6 

00 


lda 

A 

16180 

0C30 

08 



I NX 


16190 

0C3E 

81 

1 p 


CMP 

A 

16200 

0C40 

26 

F5 


BNF 


16210 

0C42 

A6 

02 

RFAD33 

LDA 

A 

16220 

0C44 

81 

79 


CMP 

A 

16230 

0C46 

26 

FF 


BNF 


16240 

0C48 

08 



INX 


16250 

0C49 

08 



TNX 


16260 

0C4A 

08 



INX 


16270 

0C4B 

20 

D9 


BRA 


16280 

0C4D 

BD 

02F0 

RFAD4 

JSR 


16290 

0C50 

08 



TNX 


16300 

0C51 

DF 

3C 


STX 


16310 

0C53 

DF 

34 


LDX 


16 320 

0C55 

RD 

0744 


JSR 


16 330 

0C58 

08 



INX 


16340 

0C59 

81 

2C 


CMP 

A 

16350 

0C5B 

27 

PC 


RFO 


16360 

0C5D 

09 


RFADEX 

DPX 


16370 

0C5E 

81 

IF 


CMP 

A 

16380 

OC60 

26 

DO 


RNF 


16390 

0C62 

20 

06 


BRA 



16410 

0C64 

DE 

2F 

RFSTOR 

LDX 

16420 

0C66 

DF 

3C 


STX 

16430 

0C68 

DE 

34 


LDX 

16440 

0C6A 

7F 

ODDF 

RFSTOI 

JMP 


16460 

0C6D 

DF 

34 

PRINT 

LDX 


16470 

0C6F 

RD 

0744 

PRINTO 

JSR 


16480 

OC72 

81 

22 


CMP 

A 

16490 

DC 7 4 

26 

1 4 


BNF 


16500 

0C76 

08 



TNX 


16510 

0C77 

A6 

00 

PRINTI 

LDA 

A 

16520 

0C79 

08 



TNX 


16530 

0C7A 

81 

22 


CMP 

A 

16540 

0C7C 

27 

4 A 


RPO 


1 6550 

0C7F 

81 

1 F 


CMP 

A 

1 6560 

0C80 

26 

04 


RNF 


16570 

0C82 

C6 

04 


LDA 

R 

16580 

0C84 

20 

1C 


BRA 


16590 

0C86 

8D 

6F 

PRINT? 

BSR 



RASPNT 

TSTV 

RFADPX 

PASPNT 

DATPNT 

SDURCF 

R C AD33 

INNIJM 

R C AD4 

O.X 
1 F 

RPA03 

*$19 

FRRC1R 

NPXTRA 

RDFRR 

O.X 

#$ I F 

R C AD3 

2.X 

#$70 VFCTOR OF DATA STATFMFNT 
R C AD3 


R^AD2 

STORF 

DA TPNT 
BASPNT 
SKTPSP 

RFAD1 

#•5 | F 

RDFRR 

R c STOI 


SDURCF 

DATPNT 

RASPNT 

REMARK 


RASPNT 

SKTPSP 

P°INT4 

O.X 

i/ii 

PRTNR8 
| F 

PR TNT? 

#4 

PRINTF 
DUTCHA 
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I 6600 

OC88 

20 

FO 


BRA 


PRINT1 

16610 

OCHA 

81 

1 F 

D RINT4 

CMP 

A 

#$ 1 F 

1 6620 

0C8C 

26 

35 


BNF 


PRINTS 

16630 

0C8E 

09 



DFX 



16640 

0C8F 

A6 

00 


LDA 

A 

0,X 

16650 

0C91 

08 



I MX 



16660 

0C92 

81 

3B 


CMP 

A 

#'; 

16670 

0C94 

27 

06 


RTQ 


PRINTS 

16680 

0C96 

BD 

02A0 


JSR 


CRLF 

1 6690 

0C99 

7F 

0040 


CLR 


PRCNT 

16700 

0C9C 

08 


PRINT5 

I NX 



16710 

0C9D 

OF 

36 


STX 


BASLIN 

16720 

0C9F 

7F 

OAOO 


JMP 


BASIC 

16730 

0CA2 

7F 

082P 

PRtNTR 

.IMP 


FRROR 

16740 

0CA5 

OF 

34 

CHR 

LDX 


BASPNT 

16750 

0CA7 

RD 

046 7 


JSR 


FTX 

16760 

OCAA 

17 


CHR2 

TRA 



16770 

OCAB 

80 

49 


RSR 


O'JTCHA 

16780 

OCAD 

8F 

A045 

PRTNT6 

LDS 


A045 

16 790 

OCBO 

20 

16 


RRA 


PRIN8S 

16800 

0CB2 

DF 

34 

TAB 

LDX 


BASPNT 

16810 

0CB4 

RD 

0467 


JSR 


FTX 

1682 0 

0CB7 

DO 

40 


SUB 

R 

PRCNT 

16830 

0CB9 

23 

F2 


BLS 


PRINT6 

16840 

OCBB 

BD 

0350 

PRIN77 

JSR 


PRTNSP 

16850 

OCBE 

5A 



DFC 

R 


16860 

OCBF 

26 

FA 


BNF 


PRIN77 

16870 

OCCI 

20 

FA 


RRA 


PRTNT6 

16 880 

0CC3 

BD 

04E6 

PR INT8 

JSR 


FXPR 

16890 

0CC6 

8D 

4R 


RSR 


PRN 

16900 

0CC8 

BD 

0744 

PR IN88 

JSR 


SKIPSP 

16910 

OCCB 

81 

2C 


CMP 

A 

#' * 

16920 

OCCD 

26 

OH 


BNF 


PRIN99 

16930 

OCCF 

08 



TNX 



16940 

OCDO 

96 

40 

PRLOOP 

lda 

A 

PRCNT 

16950 

0CD2 

16 



TAB 



16960 

0CD3 

C4 

FO 


AND 

R 

#$F0 

16970 

0CD5 

10 



SRA 



16980 

0CD6 

27 

OA 


BRQ 


PRI999 

16990 

0CD8 

BD 

0350 


JSR 


PRINSP 


17010 

OCDR 

20 

F3 


RRA 


PRLOGP 

1 7020 

OCDD 

81 

3B 

PRTN99 

CMP 

A 

#'; 

17030 

OCDF 

26 

04 


RNF 


PRFND 

1 7040 

OCEI 

08 



TNX 



17050 

0CE2 

7F 

0C6F 

PRI999 

JMP 


PR INTO 

1 7060 

0CE5 

81 

1 F 

PRFND 

CMP 

A 

#$ 1 F 

17070 

0CE7 

27 

A 1 


RPQ 


PRINT4 

17080 

0CE9 

C6 

06 


LDA 

R 

#6 

1 7090 

OCEB 

20 

R5 


RRA 


PRTNTF 


17110 

OCED 

86 

2F 

OUTPNT 

lda 

A 

#' . 

17120 

OCFF 

20 

05 


BRA 


O'JTCHA 

17 130 

OCF 1 

4F 


nilTZFR 

CLR 

A 


17140 

OCF 2 

84 

OF 

OUTDIG 

AND 

A 

#$0F 

17150 

0CF4 

SB- 

30 


ADD 

A 

#$30 

17160 

0CF6 

36 


HUTCHA 

PSH 

A 


17170 

0CF7 

BD 

0276 


JSR 


O'JTCH 

1 71 80 

OCFA 

32 



PUL 

A 
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17 200 OCFR 37 
17210 OCFC 06 40 
17220 OCFF 5C 
17230 OCFF Cl 30 
17240 ODOI 23 OC 
I 7250 0003 Cl 3F 
17260 0005 27 04 
17270 0007 81 20 
17280 0009 26 04 
17290 OOOB BO 02A0 
17 300 OOOF 5F 
17310 OOOF 07 40 
17320 ODII 33 
17330 ODI2 39 


C NLINF PSH 

R 


LOA 

R 

PRCNT 

TNC 

R 


CMP 

B 

#48 

RLS 


FNLFXT 

CMP 

R 

#63 

RCQ 


★+6 

CMP 

A 

#$20 

RNF 


FNLFXT 

JSR 


CRLF 

CLR 

R 


FNLFXT STA 

B 

PRCNT 

PUL 

B 



RTS 


17350 0013 BO 0445 ORN 
I 7 360 0016 4F 
I 7370 ODI7 97 40 
17380 0019 60 00 
17390 ODIB 26 08 
17400 0010 80 02 
I 74 I 0 001F BD 02C7 PRNO 
I 7420 0022 7F 0350 
17430 0025 6D 00 
17440 0D27 2A 07 
17450 0029 86 20 
I 7460 002B 80 C9 
17 470 0020 BO 052 8 
17480 0030 A6 06 
I 7490 0032 81 09 
17500 0D34 2F 31 
17510 0036 81 FF 
I 7520 0038 2D 20 
17530 0D3A 40 
17540 003R 2F 10 
17550 0030 80 P2 
17560 0D3F 80 AC 
I 7570 004 1 97 40 
I 7580 0D4 3 60 06 
I 7590 0045 2 A 1 C 
I 7600 0047 80 AH 
17610 0049 6C 06 
17620 004R 20 F6 
17630 0040 70 0040 PRN4 
I 7640 0D50 26 11 
I 7650 0052 A6 00 PRN4 
I/660 0054 80 9C 
I 7670 0056 BO 0552 
17680 0059 6A 06 
17690 005B 26 F8 
i77oo 0050 an 45 
17710 005F 24 BF 
I 7 720 0D6I 80 8A 
I 7730 0063 80 30 
17740 0D65 20 R8 
I 7750 0067 A6 00 
17760 0069 80 87' 

17770 0D6R BO 0552 
17780 006F BO OCED 
17790 0071 80 22 
I 7800 0073 86 45 
17810 0075 BD 0CF6 
I 7820 0078 F6 06 
17830 007A 5A 


JSR PSHXPA 
CLR A 

STA A OCCFLG 
TST O.X 
BNF PRNI 
RSR O'lTZFR 
JSR P'lLLX 
JMP PRINSP 
PRNI TST O.X 
RPL PRN2 
LOA A #'- 
BSR O'lTCHA 
JSR NBGACC 
PRN2 LOA A 6.X 
CMP A *0 
ROT PRISCI 
CMP A 4-1 
RLT PRISCI 
TST A 

BOT PRN4 
RSR O'JTZPR 
RSR GTTPNT 
STA A D C CFLG 
PRN3 TST 6. X 
RPL PRN5 
BSR O'lTZFR 
INC 6.X 
RRA PRN3 
TST OSCFI.O 
RNF PRN5 
LOA A O.X 
RSR O'lTOTG 
JSR AU.FFT 
OFC 6.X 
RNF PRN44 
BSR TSTZFR 
BCC PRNO 
RSR 0OTPNT 
PRN5 RSR PRTAIL 
RRA PRNO 

RRrscr loa a o.x 

BSR O'lTOIG 
JSR ALLFFT 
JSR O'lTPNT 
RSR PRTAIL 
LOA A *'F 
JSR O'lTCHA 
LOA R 6,X 
0 C C R 
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17840 

007B 

PA 

06 


BPL 


PRISC2 

17850 

0D7D 

86 

20 


LDA 

A 

#'- 

1 7860 

0D7F 

BD 

0CF6 


JSR 


O'lTCHA 

1 7870 

0D82 

SO 



NFG 

B 


1 7880 

0083 

4F 


PRISC2 

CLR 

A 


17890 

0084 

4C 


PRISC3 

INC 

A 


17900 

0085 

CO 

OA 


SOB 

R 

#10 

17910 

0D87 

2A 

FB 


RPL 


PRISC3 

1 7920 

0089 

4A 



DEC 

A 


17930 

008 A 

CB 

OA 


ADD 

B 

#10 

17940 

008C 

RD 

0CF2 


JSR 


GOTO IG 

17 950 

0D8F 

1 7 



TBA 



17960 

0090 

BD 

0CF2 


JSR 


OMTOTG 

17 970 

0093 

PO 

8 A 


RRA 


PRNO 


17990 

0095 

8 D 

on 

PRTAIL 

BSR 

TSTZRR 

18000 

0097 

24 

OA 


BCC 

PRTAFX 

18010 

0099 

A6 

00 


LOA A 

O.X 

1 8020 

009B 

RO 

OCF? 


JSR 

GOTO IG 

1 8030 

009F 

BO 

0552 


JSR 

ALL^FT 

18040 

OOA 1 

20 

F? 


RRA 

PRTAIL 

1 8050 

OOA 3 

39 


PRTAFX 

RTS 



18070 

ODA 4 

BD 

02 B2 

TSTZFR 

JSR 


PtJSHX 

18080 

0DA7 

DE 

5D 


LDX 


A C STK 

18090 

0DA9 

37 



PSH 

B 


18100 

ODA A 

C6 

06 


LDA 

R 

#6 

18110 

ODAC 

6D 

00 

TSTZ 1 

TST 


O.X 

18120 

ODAF 

26 

07 


RNF 


TSTZ 3 

18130 

ODBO 

08 



INX 



18140 

ODB1 

5A 



DFC 

B 


18150 

0DB2 

26 

F8 


BNF 


TSTZ 1 

18160 

0DB4 

OC 



CLC 



181 70 

0085 

20 

01 


RRA 


TSTZ3+1 

18180 

0DB7 

OD 


TSTZ3 

SFC 



18190 

0DB8 

33 



PUL 

B 


18200 

ODB 9 

7F 

02C7 


JMP 


P'JLLX 

18 220 

ODBC 

OF 

34 

LET 

LDX 


BASPNT 

18230 

ODRF 

RD 

03CI 


JSR 


TSTV 

18240 

ODCI 

24 

05 


RCC 


*+7 

18250 

one 3 

C6 

12 

LFTO 

LDA 

R 

#$ 1 2 

18260 

0DC5 

7F 

0828 

LFTOO 

JMP 


FRRDR 

18270 

0DC8 

RD 

0744 


JSR 


SKI PSP 

18280 

ODCB 

08 



INX 



18290 

once 

81 

3D 


CMP 

A 

#' = 

18300 

ODCF 

27 

04 


RFO 


*+6 

18310 

ODDO 

C6 

06 

LPT2 

LDA 

B 

#6 

18320 

0DD2 

20 

FI 


BRA 


L c TOO 

18330 

0DD4 

BD 

04F6 


JSR 


FXPR 

18340 

ODD 7 

81 

IF 


CMP 

A 

#$ 1 P 

18350 

0DD9 

26 

F5 


RNF 


*-9 

18 360 

ODDB 

BD 

02F0 


JSR 


STGRF 


l«380 CODE BD 077D REMARK JSR 
IB390 ODE 1 7F OAOO JMP 


NXTLTN 

BASIC 
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1 6410 

0DF4 

BD 

02 R2 

OFTPAR JSR 

P1JSHX 

18420 

0DF7 

DF 

34 

LDX 

BASPNT 

1 8430 

0DF9 

BD 

04F6 

JSR 

FXPP 

18440 

ODFC 

08 


1 MX 


18450 

ODFD 

81 

?C 

CMP A 

#' . 

18460 

ODFF 

27 

OB 

RCQ 

GPTPA2 

18470 

OOF 1 

81 

29 

CMP A 

) 

18480 

0DF3 

26 

1 A 

R'JF 

DIMFRR 

18490 

0DF5 

DF 

34 

STX 

PASPNT 

18500 

0DF7 

RD 

02C7 

JSR 

P'lLLX 

18510 

ODFA 

OC 


CLC 

18520 

OOFB 

39 


RTS 


18530 

ODFC 

BD 

04R 1 

0FTPA2 JSR 

PARFXP 

16540 

ODFF 

DF 

34 

STX 

PASPNT 

18550 

OFOI 

BD 

02C7 

JSR 

P'lLLX 

18560 

0F04 

OD 


SFC 

185 70 

0F05 

39 


RTS 



18590 

0F06 

DF 

34 

DIM 

LDX 


RASPNT 

18600 

0F08 

BD 

0358 


JSR 


FTNVAR 

18610 

OFOB 

29 

02 


RVS 


nrvFRR 

18620 

OFOO 

25 

05 


BCS 


n i m i 

18630 

OFOF 

C6 

05 

DIMFRR 

LDA 

B 

#5 

1 8640 

OF 1 1 

7F 

0828 


JMP 


FRROR 

18650 

0F1 4 

81 

28 

D IM1 

CMP 

A 

*' ( 

18 660 

0 F1 6 

26 

F7 


RNF 


DTMFRR 

18670 

0 E1 8 

DF 

34 


STX 


BASPNT 

16 680 

OHI A 

DR 

63 


LDX 


VARPNT 

18690 

OFIC 

F7 

00 


STA 

R 

O.X 

18700 

OF 1 F 

A7 

01 


STA 

A 

1 ,X 

18710 

0F20 

8 D 

C2 


BSR 


G C TPAR 

18720 

0F22 

24 

05 


BCC 


DTM3 

18 730 

0F2 4 

RD 

0467 


JSR 


Frx 

18740 

OE27 

20 

01 


RRA 


DTM4 

18750 

0F29 

5F 


DIM3 

CLR 

R 


18760 

0E2 A 

F7 

03 

D IM4 

STA 

B 

3, X 

18770 

0F2C 

BD 

0467 


JSR 


FTX 

18780 

0F2F 

17 



TRA 



18790 

0F30 

A7 

02 


STA 

A 

2, X 

18800 

OF32 

an 

OD 


BSR 


DTMCAL 

18810 

0F34 

DF 

34 


LDX 


PASPNT 

18820 

0F36 

BD 

0744 


JSR 


SKIPSP 

18830 

0F39 

08 



TNX 



1 8840 

0F3A 

81 

2C 


CMP 

A 


18850 

0F3C 

27 

CA 


RFO 


DtM+2 

18860 

0F3F 

09 



DFX 



18870 

0F3F 

20 

90 


BRA 


remark 


I88V0 0F4 I RD 02B2 DIMCAL 

18900 0F44 F6 03 

18910 0F46 8D I I 

18920 0F48 RD 0459 

18930 0F4R DF 46 

18940 0E4D BD 02C7 

18950 0F50 96 46 

18960 0F52 A7 04 

18970 0F54 96 47 

18980 0F56 A7 05 

18990 0F58 39 


JSR P’ISHX 
LDA B 3.X 
BSR SURCAL 
JSR TMXSIX 
STX ARRTAR 
JSR PIILLX 
LDA A ARRTAR 
STA A 4, X 
LDA A ARRTAB+I 
STA A 5,X 
RTS 
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19010 

0F59 

4D 


SUBCAL 

TST 

A 


19020 

0F5A 

26 

05 


RNF 


SUPC1 

19030 

0F5C 

C6 

15 

surfrr 

LOA 

B 

#<515 

19040 

0F5E 

7F 

0828 


JMP 


FRROP 

1 9050 

0F61 

A 1 

0 ? 

SUBC1 

CMP 

A 

2.X 

19060 

0F63 

22 

F7 


BHI 


SUPFRR 

19070 

0F65 

FI 

03 


CMP 

P 

3.X 

19080 

0F67 

22 

F3 


PHT 


SUPFRR 

19090 

0F69 

36 



PSH 

A 


19100 

0F6A 

A6 

02 


LDA 

A 

2.X 

19110 

0F6C 

97 

51 


STA 

A 

ANIJMP 

19120 

0F6F 

5D 



TST 

B 


19130 

0 F6F 

27 

OD 


RFO 


SMRC6 

19140 

0F7 1 

5A 


SUBC4 

OFC 

R 


19150 

0F72 

27 

OA 


RTO 


SUPC6 

19160 

0F74 

96 

51 


lda 

A 

ANUMP 

19170 

0F76 

PD 

0459 

SURC5 

JSR 


INXSIX 

19180 

QF79 

4 A 



DTO 

A 


19190 

0F7 A 

26 

FA 


RNF 


5URC5 

19200 

0F7C 

20 

F3 


RRA 


SURC4 

1 9210 

0F7E 

32 


SIJBC6 

PUL 

A 


19220 

0F7F 

PD 

0459 

SURC7 

JSR 


TNXSTX 

19230 

0F82 

4A 



DFC 

A 


19240 

0F83 

26 

FA 


BNF 


SURC7 

19250 

0F85 

39 



RTS 




19270 0F86 DF 34 FOR 

19280 0F88 BD 03C1 

19290 0F8R 24 03 

19300 0F8D 7F 0DC3 

19310 0F90 DF 34 FORI 

19320 OF92 OF 5D 

19330 0F94 BD 044F 

19340 0F97 A6 00 

19350 0F99 F6 01 

19360 0F9B 97 51 

19370 0F90 D7 52 

19380 0F9F CF 1180 

19390 DFA2 96 51 F0R10 

19400 0FA4 D6 52 

19410 0FA6 9C 5F 

19420 0FA8 27 1C 

19430 OEAA A1 00 

19440 OFAC 26 10 

19450 OFAF Ft 01 

19460 OFRO 26 OC 

19470 0FR2 96 36 

19480 0FR4 06 37 

19490 9PR6 A1 OF 

19500 0FR8 26 04 

19510 OFRA FI OF 

19520 OFBC 27 08 

19530 OFBF RD 0457 TORI? 

19540 OFC1 BD 0457 

19550 0FC4 20 DC 

19560 0FC6 8C 1200 FORM 

19570 0FC9 26 05 

19580 OFCB C6 10 

19590 OFCD 7F 0828 

19600 QFDO 96 51 TORI 1 

19610 0FD2 D6 52 

19620 0FD4 A7 00 

19630 0FD6 08 


LOX BASPNT 

JSR TSTV 
BCC FORI 

JMP L C T0 FRRHR JUMP 

STX BASPNT 

LOX A C STK 

jsr n^xspv 

loa a o.x 
loa r 1,x 

STA A ANUMR 
STA R BNIJMB 
LOX #FDRSTK 

LOA A ANUMR 
LOA R BMUMB 
CPX FORPNT 

RTO FORM 
CMP A O.X 
BN C FOP 12 
CMP R 1.X 
BNF FOP 12 
LOA A RASLTN 
LOA P RASLTN+1 
CMP A M.X 
RNF FORI? 

CMP B 15,X 

RTO FORM 

JSR IUXATF 

JSR INXATF 

RRA FORI 0 

CPX #F0RSTK+1?8 

RNR FORI I 

LOA B #16 

JMP FRROR 

LOA A ANUMP 

LOA R BUIIMP 

STA A 0,X 

I MX 
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19640 OFD7 E7 00 
19650 0CD9 OR 
19660 OFDA OF 5F 
19670 QPPC DF 34 
19680 OEDF BO 0744 
19690 OEFI 08 
19700 0FF2 81 3D 
19710 0FF4 27 03 
19 720 0FF6 7F OPPO =0R? 
19730 0FF9 RD 04F6 FQR3 
19740 OFFC RP 02F0 
19750 OFFF BP 0792 
19760 0EF2 8C 0109 
19770 0FF5 26 FF 
19780 OFF7 PF 34 
19790 0FF9 BD 04F6 
19800 OFFC DF 34 
19810 OFFF DF 5F 
19820 OFOO BD 02D2 
19830 0F03 BD 0450 
19840 0FO6 DF 5F 
19850 0FO8 DF 34 
19860 OFOA BP 079? 

19870 OFOD 8C 0110 
19880 OF 10 26 09 
19890 OF I 2 DF 34 
19900 OF I 4 BP 04F6 
19910 OF 17 PF 34 
I 9920 OF 19 20 OF 
19930 OF 1B PF 5D R3R4 
I 9940 OFID RP ORPP 
19950 0F20 86 01 
19960 OF22 A7 00 
19970 0F24 A7 06 
I 9980 0F26 RD 043F 
19990 0F29 DF 5F F0R5 
20000 0F2H RD 02D2 
20010 0F2F RD 0459 
20020 0F3I DF 5F 
20030 0F33 DF 34 FGR7 
20040 0F35 RD 0744 
20050 0F38 81 IF 
20060 OF3A 26 AA FORR 
20070 0F3C 08 
20080 0F3D DF 36 
20090 0F3F DF 5F 
20100 0F4I D6 36 
20110 0F43 F7 00 
20120 0F45 08 
20130 QF46 D6 37 
20140 0F48 F7 00 
20150 0F4A 08 
20160 0F4B DF 5F 
20170 0F4D 7F OAOO 


20190 0F50 DE 34 NFXT 
20200 0F52 BD 03C1 
20210 0F55 24 03 
20220 0F57 7F 0DC3 
20230 0F5A BD 0744 MFXTI 
20240 0F5D 81 IF 
20250 0F5F 26 D9 
20260 0F61 08 
20270 0F62 DF 36 


STA R O.X 

r nx 

STX FORPNT 
LDX RASPNT 
JSR SXIPSP 
I NX 

CMP A #'= 

R c 0 F0P3 

JMP L C T2 PRROR JUMP 

JSR FXPR 

JSR STORF 

JSR CC INT 

CPX *TOPNT 

RNF FOR? 

Lnx RASPNT 

JSR FXPR 

STX RASPNT 

IPX FORPNT 

JSR STITRFX 

JSR INXSTX 

STX FORPNT 

LDX RASPNT 

JSR COTNT 

CPX 4STFPNT 

RNP F0P4 
LDX RASPNT 

JSR RXPR 
STX RASPNT 

BRA FOPS 
LDX * C 5TK 

JSR CLRACC 

LPA A *401 
STA A O.X 
STA A 6.X 
JSR P'ISHAF 

LDX FORPNT 

JSR STDRFX 

JSR INXSTX 

STX FORPNT 

Lnx RASPNT 

JSR SKIPSP 

CMP A *4 IF 

RNF FOR? RRRQR JUMP 

I NX 

STX RASLIN 

Lnx FORPNT 

LnA B BASL1N 
STA R O.X 
I NX 

LnA R BASLTN+1 
STA R O.X 
INX 

STX FORPNT 

JMP BASIC 


LDX 

RASPNT 



JSR 

TSTV 



BCC 

NPXTI 



JMP 

L c TO 

p RRDR 

JUMP 

JSR 

SKIPSP 



CMP A 

1 F 



RNF 

FTR8 

PRRQR 

JUMP 

INX 




STX 

RASLIN 





274 


20280 

0F64 

BD 

0448 


JSR 

20290 

0F67 

A6 

00 


LDA A 

20300 

0F69 

F6 

01 


LDA R 

20310 

1F6B 

DF 

5F 


LDX 

20320 

0F6D 

8C 

1 180 


CPX 

20330 

0F70 

27 

66 


RFO 

20340 

OF72 

DF 

5F 

NFXT2 

STX 

20350 

0F74 

8C 

1180 


CPX 

20360 

OF77 

27 

5B 


RCO 

20370 

OF79 

BD 

044F 


JSR 

20380 

0F7C 

BD 

044F 


JSR 

20390 

0F7F 

A1 

00 


CMP A 

20400 

0F81 

26 

FF 


BNF 

20410 

0F83 

FI 

01 


CMP R 

20420 

0F85 

26 

FB 


BNF 

20430 

0F87 

DF 

61 


STX 

20440 

0F89 

FF 

00 


Lnx 

20450 

0F8B 

BD 

0302 


JSR 

20460 

0F8E 

DF 

61 


LDX 

20470 

0F9O 

BD 

0457 


JSR 

20480 

0F93 

86 

02 


LDA A 

20490 

0F95 

6D 

00 


TST 

20500 

0F97 

2 A 

02 


BPL 

20510 

0F99 

8R 

03 


ADD A 

20520 

0F9B 

97 

4F 


STA A 

20530 

0F9IJ 

BD 

030? 


JSR 

20540 

OFAO 

PD 

05FC 


JSR 

20550 

0FA3 

CF 

006 F 


LDX 

20560 

0FA6 

PD 

02D2 


JSR 

20570 

0FA9 

RD 

043 F 


JSR 

20580 

OFAC 

DF 

61 


LDX 

20590 

OFAE 

08 



TNX 

20600 

OFAF 

08 



TNX 

20610 

OFRO 

BD 

0302 


JSR 

20620 

0FB3 

BD 

1037 


JSR 

20630 

0FB6 

24 

07 


RCC 

20640 

0FB8 

DF 

61 


LDX 

20650 

OFBA 

DF 

5F 


STX 

20660 

OFBC 

7F 

OAOO 

NEXT3 

JMP 

20670 

OFBF 

CF 

006 F 

NEXT4 

LDX 

20680 

0FC2 

BD 

0302 


JSR 

20690 

0FC5 

DE 

61 


LDX 

20700 

0FC7 

FF 

00 


LDX 

20710 

0FC9 

BD 

02D? 


JSR 

20 720 

OFCC 

DE 

61 


LDX 

20730 

OFCF 

FF 

OF 


LDX 

20740 

OFDO 

DF 

36 


STX 

20750 

0FD2 

20 

F8 


BRA 

20760 

3FD4 

C6 

18 

NFXT5 

LDA B 

20 770 

0FD6 

20 

02 


BRA 

20780 

0FD8 

C6 

17 

NFXT6 

LDA R 

20790 

3FDA 

7F 

0828 


JMP 


20810 

OFDO 

DF 

34 

IF 

LDX 

20820 

OFDF 

BD 

04E6 


JSR 

20830 

0FF2 

8D 

17 


RSR 

20840 

0FE4 

97 

4F 


STA A 

20850 

0FF6 

PD 

04E6 


JSR 

20860 

0FF9 

DF 

34 


STX 

208 70 

OFFB 

8D 

4A 


RSR 

20880 

OFED 

24 

03 


BCC 

20890 

OFFF 

7F 

ODDF 


JMP 

20900 

0FF2 

DF 

34 

IF2 

LDX 

20910 

0FF4 

BD 

079R 


JSR 

20920 

OFF 7 

FF 

00 


LDX 

20930 

OFF 9 

6F 

00 


JMP 
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PMLLAF 
O.X 
1 .X 

FDRPNT 

#FORSTK 

NFXT6 

FDRPNT 

#FORSTK 

N C XT5 

D C XATF 

DFXAT C 

O.X 

NeXT? 

I ,X 
N C XT2 
FDRNOW 
O.X 
INOX 
FDRNOW 
TNXATF 
#? 

O.X 

★-M 

#3 

NCMPP 

iMnx 

ADD 

#FORTMP 

STDRFX 

PHSHAF 

FDRNOW 


INOX 

CMPR 

NFXT4 

FDRNOW 

FDRPNT 

BAS TC 

#FORTMP 

INOX 

FDRNOW 

O.X 

STORFX 

FDRNOW 

14.X 

RASLIN 

N C XT3 FXIT 

# A I 8 

NFXT6+2 

#$17 

FRROR 


BASPNT 

FXPR 

R c LOP 

NCMPR 

FXPR 

BASPNT 

CMPR 

IF? 

REMARK 

BASPNT 

CCOOF 

O.X 

O.X 
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20950 

20960 

20970 

20980 

20990 

21000 

21010 

21020 

21030 

21040 

21050 

21060 

21070 

21080 

21090 

21100 

21110 

21120 

21130 

21140 

21150 

21160 

21170 

21180 

21190 

21200 

21210 

21220 

21230 

21240 

21250 

21260 

21270 

21280 


21300 

21310 

21320 

21330 

21340 

21350 

21360 

21370 

21380 

21390 

21400 

21410 

21420 

21430 

21440 

21450 

21460 

21470 

21480 

21490 

21500 

21510 

21520 

21530 

21540 

21550 

21560 

21570 

21580 


OFFB 

BD 

0744 

RFLOP 

JSR 


SKIPSP 

OFFF 

08 



INX 



OFFF 

81 

3D 


CMP 

A 


1001 

26 

03 


RNF 


R c L0P0 

1003 

86 

00 


lha 

A 

#0 

1005 

39 



RTS 



1006 

F6 

00 

RFLOPO 

LOA 

R 

o.x 

1008 

81 

3C 


CMP 

A 

*'< 

1 00 A 

26 

13 


RNF 


RFL0P4 

I00C 

Cl 

3D 


CMP 

R 

U'~ 

I00E 

26 

04 


RNF 


R c LOP1 

1010 

08 



INX 



101 1 

86 

02 


lha 

A 

*2 

1013 

39 



RTS 



1014 

Cl 

3F 

RFLOP1 

CMP 

R 

#'> 

1016 

26 

04 


RNF 


RFL0P3 

1018 

08 


RFL0P2 

INX 



1019 

86 

03 


LOA 

A 

#3 

101 B 

39 



RTS 



1 01 c 

86 

01 

REL0P3 

LDA 

A 

#1 

101 F 

39 



RTS 



101F 

81 

3E 

RFLGP4 

CMP 

A 

#'> 

1021 

27 

05 


BFO 


R C L44 

1023 

C6 

06 


LOA 

R 

#6 

1025 

7F 

0828 


JMP 


FRROR 

1028 

Cl 

3D 

RFL44 

CMP 

B 

U ' = 

1 02 A 

26 

04 


RNF 


R C L0P5 

102C 

08 



INX 



1 02D 

86 

05 


LOA 

A 

#5 

1 02 F 

39 



RTS 



1030 

Cl 

3C 

RFLDP5 

CMP 

B 

< 

1032 

27 

F4 


RFC 


RPL0P2 

1034 

86 

04 


LOA 

A 

#4 

1036 

39 



RTS 




103 1 

96 

4F CMPR 

LOA 

A 

NCMPR 

1039 

48 


ASL 

A 


1 03A 

48 


ASL 

A 


I03B 

CF 

1051 

LDX 


#CMPR1 

1 03F 

DF 

20 

STX 


IMDFX1 

1040 

9B 

21 

Ann 

A 

INDFXI+I 

1042 

97 

21 

STA 

A 

INDEX 1 +1 

1044 

BD 

05FO 

JSR 


SMB 

1047 

RD 

0448 

JSR 


PMLLAF 

I04A 

A6 

00 

LOA 

A 

O.X 

I04C 

DF 

20 

LOX 


TNDPXI 

1 04 E 

4D 


TST 

A 


1 04F 

6F 

00 

JMP 


O.X 


* ******FOLLOWING MUST RF ON ONC DAQF****** 


1051 

27 

16 

CMPR1 RFQ 

OKCMPR 

1053 

20 

12 

RRA 

NOCMPR 

1055 

2R 

12 

RMI 

OKCMPR 

1057 

20 

OF 

RRA 

NOCMPR 

1059 

2R 

OF 

rm r 

OKCMPR 

I05R 

20 

F4 

RRA 

CMPR I 

I05D 

26 

OA 

RNF 

OKCMPR 

I05F 

20 

06 

RRA 

NOCMPR 

1061 

27 

04 

RFQ 

NOCMPR 

1063 

2R 

02 

RMI 

NOCMPR 

1065 

2A 

02 

RPL 

OKCMPR 

1067 

OD 


NOCMPR SFC 


1068 

39 


RTS 


1069 

OC 


OKCMPR CLC 


I 06A 

39 


RTS 
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21600 

I06B 

BD 

0448 

USFR JSR 

PULLAF 

21610 

1 06 F. 

BD 

02 B2 

JSR 

PUSHX 

21620 

1071 

OF 

67 

LDX 

DUMMY 

21630 

1073 

AD 

00 

JSR 

O.X 

21640 

1075 

BD 

02C7 

JSR 

PULLX 

21660 

1078 

39 


DUMRTS RTS 



2 1680 

1079 

RD 

044B 

I NT 

JSR 


PULLAF 

21690 

1 07C 

C6 

09 

INTI 

lda 

B 


21700 

I07F 

FO 

06 


S1JB 

B 

6 .X 

21 710 

1 080 

5D 


TNT2 

TST 

B 


21 720 

1081 

2F 

08 


BLF 


INT4 

21730 

1083 

BD 

0578 


JSR 


LRTGHT 

21 740 

1 086 

6 C 

06 


INC 


6 .X 

21750 

1 088 

5A 



D C C 

B 


21 760 

1 089 

20 

F5 


BRA 


TNT2 

21770 

1 08B 

6 F 

05 

T.NT4 

CLR 


5.X 

21780 

1 08D 

BD 

059F 


JSR 


NHRMPA 

21 790 

1090 

7F 

0448 


JMP 


PULLAF 


21810 

1093 

BD 

0448 

SGN 

JSR 


PULLAF 

21820 

1 096 

A6 

00 


LDA 

A 

O.X 

21830 

1098 

27 

DF 


BFO 


DUMRTS 

21840 

1 09A 

97 

4 A 


STA 

A 

TSTGN 

21850 

1 09C 

BD 

OBDD 


JSR 


CLRACC 

21860 

1 09F 

86 

01 


LDA 

A 

#1 

21870 

1 OA 1 

A7 

00 


STA 

A 

O.X 

21880 

10A3 

A7 

06 


STA 

A 

6 , X 

21890 

1 0A5 

7D 

004 A 

SGN3 

TST 


TS IGN 

21900 

10A8 

2 A 

CF 


BPL 


DUMRTS 

21 910 

1 OAA 

7F 

0528 

SGN33 

JMP 


NFGACC 

21920 

1 OAD 

39 


SGN4 

RTS 



21940 

1 OAE 

BD 

0448 

ABS 

JSR 


PULLAF 

21950 

1 OB 1 

6 D 

00 


TST 


O.X 

21960 

10B3 

2 A 

C3 


BPL 


DUMRTS 

21970 

I0B5 

20 

F3 


BRA 


SGN 3 3 


21990 

1 OR 7 

BD 

0448 

RANDOM 

JSR 


PULLAF 

22000 

1 OBA 

RD 

0DA4 


JSR 


TSTZFR 

22010 

10RD 

24 

05 


BCC 


RAND 1 

22020 

1 OBF 

RD 

043F 


JSR 


PUSHAF 

22030 

I0C2 

20 

08 


BRA 


RAND 1+8 

22 040 

1 0C4 

CF 

0069 

RAND 1 

LDX 


tfRANNUM 

22050 

1 0C7 

6 C 

00 


INC 


O.X 

22060 

10C9 

RD 

0302 


JSR 


INDX 

22070 

10CC 

CF 

1 OFF 


LDX 


#RANMUL 

22060 

10CF 

RD 

0302 


JSR 


INDX 

22090 

1 0D2 

BD 

06D1 


JSR 


MPY 

22100 

1 0D5 

BD 

0448 


JSR 


PULLAF 

22110 

10D8 

RD 

0552 


JSR 


ALLFFT 

22120 

1 ODB 

E6 

01 


LDA 

R 

1 ,X 

22 1 30 

1 ODD 

A6 

03 


lda 

A 

3.X 

22140 

1 ODF 

A7 

01 


STA 

A 

1 .X 
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22150 

1 OEI 

E7 

03 

STA R 

3 ,X 

22160 

I0F3 

6 F 

06 

CLR 

6 .X 

22170 

I0E5 

BD 

059F 

JSR 

NORMPA 

22180 

I0E8 

CF 

0069 

LPX 

*RANNUM 

22190 

IORR 

7F 

02D2 

JMP 

STORFX 

22200 

IOEE 

08 


RANMUL FCB 

$08,$37 , $25 . $41 


IOEF 

37 




IOFO 

35 





1 OF I 

41 





1 OF? 

69 





I0F3 

00 





22210 10F4 RORFRT FOU * 


$ 6 Q .$00 


22230 

1 102 


ORG 

$ 1 10? 

22240 

1 102 

00 7 F 

ASTACK RMR 

1 8*7 

22250 

1180 

0080 

FORSTK RMB 

! 28 

22260 

1200 


ORG 

$1200 

22270 


1200 

C TLF FOU 

* 

22280 

A048 


ORG 

$ A048 

22290 

A048 

0100 

FOR 

PROGM 

22300 



F NO 



SYMROL TABLF 


INDEX! 0020 
NEXTBA 002A 
BASPNT 0034 
DI MPNT 003F 
TSIGN 004A 
NCMPR 004F 
ROUNDV 0054 
BASNUM 005B 
SBRPNT 0065 
LQAFLG 0085 
INTER 0106 
STOMSG 01B3 
RDYMSG 01FO 
ERRMS2 0214 
KEYBD2 0258 
OUTCH 0276 
OUTPUT 0292 
PUSHX 02B2 
IND 0309 
FINV! 0360 
FINV5 03A9 
TSTVI I 03D4 
TSTV34 03F3 
TESTNO 0432 
PULLAE 0448 
DEXFOR 0452 
INXFOR 045B 
FIXEX 0494 
TERM 04C5 
EXPRI 04FR 
NEGA2 0542 
LRIGHT 0578 
NORMOO 05B5 
NORMEO 05E4 
ADDO 06 I I 
SWAP! 0632 
DIV2 0678 
MDS4 06CF 
MDHXIT 06FE 
HIBALL 073E 
NXTLIN 077D 
LQ0P5 07B6 
READY 07F6 
OUST 0882 
PATCH 08D3 
APPEND 0910 
LEADER 093E 


INDEX2 

0022 

WORKBA 

00? C 

RASLIN 

0036 

PRCNT 

0040 

FXP 

004 B 

TNUMP 

0050 

ONLOOP 

0055 

AFSTK 

005D 

DUMMY 

0067 

BUFNXT 

OOAC 

TOPNT 

0109 

COMEND 

01 BA 

DFLMSG 

01FB 

DEL 

02 IF 

CNTLIN 

025D 

INCH 

027R 

OUTNCR 

0299 

PULLX 

02C7 

INDO 

0313 

FINV 11 

0386 

FTNV6 

03B0 

TSTV 2 

03D6 

TSTV4 

03FD 

NO NO 

043A 

DFXATF 

044F 

INXATF 

0457 

OVRTST 

045F 

FACT 

049A 

TFRMO 

04C7 

NFGOP 

051 7 

ALLFFT 

0552 

LRIGH2 

0584 

NORM 1 

05BB 

NORMFI 

05FB 

ADD1 

0622 

SWAP2 

0640 

DIV3 

0679 

MPY 

06D1 

MDFX2 

071 3 

SKIPSP 

0744 

FCODF 

0789 

CCFXIT 

07D3 

NFWLIN 

0807 

CLIST3 

08A8 

SAVE 

08F5 

L0AD1 

091 7 

NUMBER 

0949 


INDFX3 0024 
SOURCE 002P 
PUSHTX 0038 
MPMFND 0044 
SIGDIG 004C 
ANUMR 005! 
NORSGN 0056 
FGRPNT 005F 
RANNUM 0069 
FNDBUF OOAF 
STFPNT 0110 
IMPLFT 01BB 
PGCNTL 0200 
KFYRD 02?5 
TFXIT 0263 
BREAK 0281 
CRLF 07AO 
STORFX 0202 
miTLIN 032A 
FINV2 038R 
FTNV7 03BO 
TSTV3 03F9 
TSTV44 0417 
YPSNG 043C 
OPXSFV 044F 
INXSPV 0458 
FIX 0467 
PARFXP 04R1 
TFRM1 0409 
N C G 05 IF 
LLFFT 0550 
LRIGH3 058A 
NGRMPZ 05C5 
NGRMF2 05F3 
A002 0624 
AODFR 0645 
MDSTGN 06A8 
MPY4 06F3 
FINONO 0716 
INXSKP 074A 
CCINT 0792 
FUNCFX 0709 
FRROR 0828 
CLIST4 08RC 
SAVF1 08F2 
0PLAY2 0933 
NIJM1 094C 


TN0PX4 0026 
PACKLN 00.30 
YSTACK 003A 
ARRTAB 0046 
OFCFLG 0040 
RNUMB 0052 
XLGNG 0057 
FORNOW 0061 
FGRTMP 006F 
BUFFFR OORO 
COMMAN 0112 
FUNCT 0 I BO 
WHAT 0203 
KFYROO 022C 
G1JT2H 0270 
BRFAKO 0289 
CRLFST 02 A A 
STORE 02F0 
PRINSP 0350 
FINV3 0394 
TSTV 03C1 
TSTV3I 03PF 
TSTV5 0422 
PUSHAF 043P 
0FX8TX 0450 
INXSIX 0459 
FIXPRR 0470 
FACT2 04BC 
TFRM2 04P5 
NFGACC 0528 
LLFFT? 0563 

NORMPA 059C 
NGRMFX 05C7 
S1JR 05F9 
ADD4 0629 
AODFR| 064C 
MOS? 06R5 
MPY5 06FA 
FI NON I 0720 
LINFNG 074F 
CCOOF 079B 
NFWS1IR 070C 
FRRGR2 0853 
CLIST5 08C2 
SAVF5 0903 
OFLAY 0935 
OFLRFP 0964 


8AVFSP 0028 
H rGHLN 0032 
OATPNT 003C 
KFYWO 0048 
TOGGLE 004P 
LRNINF 0053 
MPYXX 0059 
VARPNT 0063 
SBRSTK 0075 
PRGGM 0100 
GGLTST 0137 
FIINFND 01 FO 
FRRMSt 020C 
KFYRD1 022F 
Q1IT4HS 0273 
BREAK 1 0290 
CRENJO 02B1 
INOX 0302 
FINVAP 0358 
FINV4 0398 
TSTV1 03C9 

TSTV33 03F2 
TSTI.TR 042 A 
PSHXPA 0445 
DFXFTV 0451 
INXFIV 045A 
FIX? 0477 
FACT3 04C1 
FXPR 04E6 
NEG A 11 0532 
LLFFT3 056C 
NflRM 05A I 
NORMOl 05D4 
ADD 05 FO 
SWAP 062C 
D TV 0659 
M0S3 06C1 
MPY6 06F3 
FTNDO 072? 
LTNFO 0753 
LDGP3 07A4 
START 07F? 
RUN 085R 
CLEXT 0800 
LOAD 0900 
0FLAY3 0937 
RFPLAC 0977 
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NEXIT 

097B 

CAPPFN 

097C 

DELFTF 

09R4 

OFL? 

OORP 

OF!.4 

0000 

DELEX 

09A7 

INSERT 

09AA 

INS2 

0902 

RUFWRT 

0900 

OVPRFL 

0OF Q 

BASIC 

OAOO 

thfn 

0A29 

ONFRR 

0A36 

nNGO 

0A.3R 

nnsiiR 

OASA 

GOSUB1 

0A6E 

GOTO 

OA7C 

GOT01 

OABI 

GOTO 2 

OAQO 

RFTURN 

0 A A? 

STOP 

0AB6 

INPUT 

0AC4 

INPPRR 

OACA 

INPMTI 

0AP7 

INPMT2 

OAFO 

INPUT4 

0AF6 

INPUTS 

0801 

INPFX 

OBon 

DRL1.TR 

OR 1 8 

f NNMM 

OR 1 0 

TSTN 

0R28 

INNUMO 

0R2B 

TNTST1 

O n 3F 

1NTST2 

0RS3 

INTST3 

0R6^ 

INTST4 

0870 

INTST5 

0R8S 

INTSSS 

0B8R 

TNTST6 

ORRP 

T NTS66 

0 R 9R 

MAYEXP 

0B9D 

MAYEX2 

ORAA 

INTST8 

ORBR 

I NTS T9 

ORRF 

INNPX 

0RC3 

CLRACC 

OBDD 

FORMFX 

OBF2 

INNFR 

0RF9 

RFAO 

OC1 7 

RPA01 

ocio 

READ2 

OC26 

RDFRR 

OC32 

RPAD3 

0C37 

RFAD.33 

OC42 

Rp<\n4 

0040 

READEX 

0C5D 

RFSTOR 

0C64 

RPSTDI 

0C6A 

PRINT 

0C6D 

PPINTO 

0C6 c 

PR INTI 

OC77 

PRINT2 

0CR6 

PRINT4 

0C8A 

PRINTS 

0C9C 

PRINTS 

OCA? 

CHR 

OCAS 

CHR2 

OCAA 

PRTNT6 

OCAO 

TAR 

0CR2 

PRTN77 

00 R R 

PRINTS 

OCC3 

PRTNR8 

OCC8 

PRLOOP 

OCDO 

PRIN90 

ocno 

PD T000 

OCFO 

PREND 

OCE5 

QUTPNT 

OCFD 

01IT7.FR 

OCF1 

nuTnro 

0CF2 

OUTCHA 

0CF6 

ENLINE 

OCFB 

ENLEXT 

OOOF 

PRN 

0D1 3 

PRNO 

on if 

PRN 1 

0D2S 

PRN2 

0D30 

PRN3 

004 3 

PRN4 

0040 

PRN44 

OOS2 

DRNR 

00^3 

PRISCI 

0D67 

PRISC2 

0DR3 

PRISC3 

00fl4 

PPTAII. 

onpR 

PRTAPX 

00 A 3 

TSTZER 

0DA4 

TSTZ 1 

OOAC 

TSTZ 3 

00B7 

LFT 

OORO 

LFTO 

00C3 

LETOO 

ones 

LPT2 

onno 

REMARK 

OOOF 

GPTPAR 

ono4 

GFTPA2 

OOFO 

DIM 

0F06 

DIMFRR 

0F0F 

OTMI 

0 C I 4 

DI M3 

O r ?° 

0TM4 

0P2A 

D1 MCAL 

0F4I 

SUBCAL 

0FS9 

S1JRFRR 

0 R SC 

SURCI 

0P6 1 

SURC4 

OP 71 

SUBCS 

OE76 

SURC6 

0C7c 

SUPC7 

0 C 7F 

FOR 

0PR6 

FORI 

0F90 

FOR 10 

OEA2 

FORI 2 

OPBF 

FORI 4 

0 C C6 

FnRi i 

0 C D0 

Fnop 

0PP6 

FOR3 

0EE9 

F0R4 

0F1B 

FORS 

0P79 

F0R7 

OF 3 3 

FORR 

OF.3 A 

NEXT 

0F50 

NFXT1 

OFS A 

N C XT2 

0F7? 

NFXT3 

OFRC 

NFXT4 

OFRF 

NEXT5 

0FD4 

NFXT6 

0FD8 

IF 

ofdo 

IF2 

OFF 2 

RR.OP 

OFFR 

RELOPO 

1 006 

RFL0P1 

1014 

RFL0P2 

niR 

RPL0P3 

1010 

RFLOP4 

101P 

RFL44 

1028 

RPLOPS 

1030 

CMPR 

1037 

CMP R 1 

lOSI 

NnOMRR 

1067 

OKCMPR 

1069 

USER 

1 06 R 

O'JMRTS 

1078 

TNT 

1070 

INTI 

1 070 

INT2 

1080 

INT4 

l 08B 

SON 

1093 

SGN3 

1 OAR 

SGN33 

1 0 A A 

SGN4 

I0AD 

ARS 

1 OAF 

RANDOM 

1 0R7 

RAN01 

10C4 

RANMUL 

10FP 

ROBERT 

10F4 

ASTACK 

1 102 

FORSTK 

1 1 80 

FILP 

1200 




RFADY 


UNDERSTANDING UITERWYK’S BASIC 
Introduction 

The following Table 1, SUMMARY OF BASIC FEATURES, explains 
the characteristics of the 6800 4K BASIC Interpreter program. For con¬ 
venience Robert Uiterwyk’s 4K BASIC also carries the mnemonic 
name RU4KBASIC. 


BASIC Program Format 

A BASIC program is comprised of programming statements. These 
statements tell the computer in a step-by-step sequence how to per¬ 
form a particular task. The computer has no intelligence of its own, 
and only understands what it has been programmed to do. The BASIC 
language has some simple but exacting rules on how to instruct a 
computer how to do a particular task. For instance, the format of a 
BASIC programming statement is always a statement number, fol¬ 
lowed by the statement body, and terminated by a carriage return. The 
statement body always starts with a keyword that identifies the type 
of statement. 

Statements need not be entered in numerical order, because the 
BASIC interpreter will automatically sort the statements in ascending 
order by line numbers. The statement number is also used for 
reference purposes, as will be seen when discussing the GOTO, 
GOSUB and IF statements. All line numbers must be between 1 and 
9999, and zero may not be used. A programming statement may con- 
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Table 1. Summary of BASIC Features 


COMMANDS STATEMENTS 

FUNCTIONS 

LIST 

REM 

END 

ABS 

RUN 

DIM 

GOTO* 

INT 

NEW 

DATA 

ON. . .GOTO* 

RND 

SAVE 

READ 

ON...GOSUB* 

SGN 

LOAD 

RESTORE 

IF...THEN* 

CHR 

PATCH 

LET* 

INPUT 

USER 


FOR 

PRINT* 

TAB 


NEXT 

PATCH* 



STOP 

RETURN 



GOSUB* 




'Flags statements that may be used in the direct mode (No 
statement numbers) 

MATH OPERATORS RELATIONAL OPERATORS 

- Unary negation = Equal 

* Multiplication <> NOT equal 

/ Division < Less than 

+ Addition > Greater than 

- Subtraction <= Less than or Equal 

>= Greater than or Equal 

Line Numbers may be from 0001 to 9999 
Variables Simple variables Single alphabetic or 

Single alphabetic and 
a single digit 
Single alphabetic 

Arrays: 

Backspace Control-0 
Line delete Control-X 

Panic Button Control-C should bring Basic back to the 

READY mode regardless of what the BASIC 
user program is doing. 


tain no more than 72 characters including blanks. Unless within a 
character string and enclosed by quotation marks (“), blanks are not 
processed by BASIC, and their use is optional. With blanks, the state¬ 
ment is more readable, as can be seen in Example 1, but will require a 
slightly longer time to process. In addition typing blanks in the 
statements will require more memory for the storage of the program. 
Keep in mind, though, that program readability is very important; for if 
you cannot read it, you cannot modify or fix it! The only place in 
BASIC that blanks may not be used at all, is inside the various 
keywords and inside numbers. “12 34” is NOT the same as “1234”. 

In any one program, a line number may be used only once. A 
previously entered line may be changed by entering the same line 
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Programming Statement Memory required 

110 LET A = B + (3.5*5E2) 23 Bytes 

110LETA = B + (3.5*5E2) 16 Bytes 

Example 1. Statements with and without imbedded blanks. 

number along with the desired new statement. Typing just a line 
number followed by a carriage return will delete that line. 

It is strongly suggested that you use line numbers which are at 
least ten numbers apart. This will make it easier to add in statements 
between the original statements in case of omission, or if you desire 
to add additional features to an existing program. If you do wish to in¬ 
sert a statement between two others, you need only type a line 
number that falls between the other two. For example consider the 
following original BASIC program: 

180 LET P = A*A*3.14 
185 PRINT 

in which it is desired to insert the following addition program state¬ 
ment 

183 REM INSERT THIS LINE 
with the resulting program becoming: 

180 LET P = A*A*3.14 
183 REM INSERT THIS LINE 
185 PRINT 

If it is desired to replace a statement, a new statement is typed that 
has the same line number as the one to be replaced. For example, typ¬ 
ing the statement: 

180P = (A*A)*3.14 

would cause the example program to become: 

180P = (A*A)*3.14 
183 REM INSERT THIS LINE 
185 PRINT 

Each line is terminated by a carriage return. Only after the carriage 
return is typed will BASIC store the new statement in the proper se¬ 
quence in its memory. If after typing a line and before typing the car¬ 
riage return, you should change your mind, simply enter a “control-X” 
(Control key depressed and X key struck) to delete the line. Single 
character typing errors can be corrected by typing a “control-O” for a 
backspace. The computer will print either a left-arrow (—) or an 

underline (_) for each “control-O” pressed, and will backspace 

across the characters stored in the input buffer. The character 
displayed in response to a “control-O” will vary depending on the ter¬ 
minal used. If it is desired to stop a running program, or to terminate a 
LIST command, you should use the “control-C” character. 



Uiterwyk’s BASIC 


281 


Variable Names And Data Formats 

Now that you know how to enter a program, correct any mistyped 
lines, and how to stop a running program, we should probably find out 
how the “numbers” that control the program flow are referenced. 

All numbers which can be changed during the execution of a pro¬ 
gram are called variables. Those numbers whose values cannot be 
changed other than by retyping a programming statement are called 
constants. Variables are referenced by a unique name given them by 
the programmer. A simple variable may be given a name of a single 
alphabetic ora single alphabetic character followed by a single digit 0 
thru 9. Thus legal names for a simple variable are: A, B, ZO, Q5. Illegal 
names are 9, 5A, A34, AB. BASIC also has a type of variable known as 
an array. An array is defined as an ordered collection of numeric data 
known to BASIC under a single name. Any array may be given a name 
of a single alphabetic character, A to Z. BASIC allows the use of both 
the simple variable A and the array A in the same program. 

Arrays are divided into columns (vertical) and rows (horizontal). Ar¬ 
rays may have one or two dimensions. For example: 

1.01 

2.11 

3.22 

4.34 

is a one dimensional array while 

6 5 4 

3 2 1 

0 9 8 

is a two dimensional array. 

Array elements are referenced by their column and row position. 
For instance, if the examples above were arrays A and Z respectively, 
2.11 would be A(2); similarly, 0 would be Z(3,1). The references to array 
elements are called subscripts, and set apart with parentheses. For 
example P(1,5) references the fifth element of the first row of array P; 1 
and 5 are the subscripts. In X(M,N), M and N are the subscripts. 

The range of numbers that can be stored in a single element of an 
array, or in a simple variable is 1.0 x 10 " to 9.99999999 x 10 89 . There 
are nine digits of significance in this version of BASIC. There will be 
no radix or base conversion errors in this version of BASIC, because 
all numbers are stored internally in an exponential (floating point) 
base 10 format. All numbers are internally truncated to nine digits to 
fit this precision. Numbers may be entered and displayed in three for¬ 
mats: INTEGER, DECIMAL, and EXPONENTIAL. BASIC will 
automatically select the appropriate output format when executing a 
“PRINT” statement. Figure 3 identifies the three formats and gives ex¬ 
amples. 
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INTEGER (NO DECIMAL POINT) 

1 998 10 99999999 

DECIMAL (FLOATING POINT NUMBERS) 

.123456789 3.14 1.2E-99 

EXPONENTIAL (SCIENTIFIC NOTATION) 
10E99 - 1.2345E76 1.2E-99 

E99 REPRESENTS 10” AND E-99 IS 10"” 
(E STANDS FOR EXPONENT) 

Figure 3. Data Formats 


Commands 

Although most BASIC statements will have line numbers, it is 
possible to communicate in BASIC by typing certain types of 
statements without line numbers. This type of statements is called 
commands. A command is a BASIC statement that causes immediate 
action. In contrast, however, a typical BASIC program is entered into 
the computer by typing it a line at a time; later typing a command 
(RUN) to cause the computer to begin executing the program in accor¬ 
dance with the programming statements previously stored in the com¬ 
puter’s memory. When BASIC is ready for you to type a command or is 
able to accept a programming statement for storage, the word 
“READY” is displayed on the terminal. After each such entry the 
system will prompt for an additional command or programming state¬ 
ment by displaying a “#”. When a command is typed, the computer 
will take immediate action on that command, and when the command 
has completed it will again respond with the word “READY” and a “#”. 

This version of BASIC will understand seven different commands: 
NEW LIST RUN SAVE LOAD APPEND PATCH. Each of these seven 
commands are described in Table 2. 

Command 

Name Description of Command 

NEW The NEW command causes the current pro¬ 

gram to be erased. All working storage, inter¬ 
nal pointers, and all variables will be reset. 

The effect of this command is to erase all 
traces of a program from memory and to 
start over. 

LIST The LIST command has several formats 

which can be used to cause all or selected 
portions of the current program to be 
displayed on your terminal. The lines are 
displayed in sequence with the lowest 
number first. The different LIST formats are 
as follows: 

LIST will list the entire program 

from start to finish. 
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RUN 

SAVE 

LOAD 

APPEND 

PATCH 


LIST 100 will list only line 100. 

LIST 100,200 will list lines 100 thru and in¬ 
cluding line 200. 

LIST 100,1 will cause the program to 
begin listing at line 100 and 
will continue through to the 
end of the program. This 
operation will occur any time 
the second line number is less 
than the first. 

The RUN command causes the current pro¬ 
gram in memory to begin execution at the 
first statement number. RUN always starts 
with the lowest line number and will proceed 
in sequential order unless directed to do 
otherwise with a GOTO, GOSUB, ON, or IF 
statement. 

The SAVE command causes the current pro¬ 
gram to be saved in a reloadable format on 
either the SWTPC AC-30 cassette interface 
or on a TELETYPE papertape punch, or an 
equivalent device. The control characters 
necessary to control the recording and 
playback mechanisms are output along with 
the program. More complete details are 
given in LOAD. 

The LOAD command will first erase any pro¬ 
gram currently in working storage (as in the 
command NEW) and will then load a pre¬ 
viously saved program. Control characters 
are output to control the reading mechan¬ 
ism. More complete details are given in 
APPEND. 

The APPEND command functions exactly 
like the LOAD command except that memory 
is not cleared prior to the load function. 

The PATCH command causes the computer 
to return to the MIKBUG operating system 
and outputs a carriage return, line feed, and 
an **’ on the terminal device. If no memory 

belonging to BASIC (addresses_to 

_) and the program counter (ad¬ 
dresses A048 and A049) are not changed, 
typing a “G” will restart BASIC with your pro¬ 
gram intact. The PATCH command may even 
be inserted as a programming statement 
with a line number in your program. When 
the PATCH statement is encountered, con- 
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trol is transferred to MIKBUG. Upon typing a 
“G”, control will return back to the line that 
immediately follows the patch command. 

Note: All seven of the control commands described above 
may also be used as programming statements, if 
the control statement is typed following a line 
number. As a BASIC programming statement their 
action will be suspended until the program ex¬ 
ecutes them in sequence. 

Caution: Using the NEW statement as an executable state¬ 
ment will cause your program to self-destruct! 


Program Statements 

Each program statement line begins with a line number which must 
be an integer between 1 and 9999. Statements may be entered in any 
order, but they will be executed in numerical order. Blanks, unless 
enclosed by quotation marks, are ignored. Program statements are 
limited to 72 characters including blanks. Nineteen types of program 
statements are allowed and are described in the following 
paragraphs. For your convenience the statements are listed in 
alphabetical order, rather than someone’s “easy-to-learn” sequence. 
This will make it easier to use as a reference manual. 

DATA The DATA Program statement causes data 

to be stored as part of a program. This data 
will be used by a READ statement. Data 
statements do not execute; they merely 
specify data. Multiple data items in a data 
statement must be separated by commas. 

Data statements may be placed anywhere in 
a program, and will be read in sequence as 
required. When the data is read in a program, 
the data will be read in sequence from the 
first to last data statements, and from left to 
right within each data statement. Each data 
item may be read only once unless a 
RESTORE statement is executed. BASIC 
keeps track of data with a pointer. When the 
first READ statement is encountered, the 
pointer indicates that the first data item in 
the first data statement is to be used; the 
pointer is then moved to the second item of 
data, and so on. An example of the DATA 
program statement format is as follows; 

100 DATA 123, 34.5, 695, 500 

DIM The DIM Program statement allocates 

memory space for an array. In this version of 
BASIC, one or two dimensioned arrays are 
allowed. Maximum array size is 255x255 
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END 


FOR 


elements. (This is not as much of a limitation 
as you might think—you would need 393,216 
bytes of memory to contain an array of 65535 
elements! and this doesn't allow for any 
memory to store the program code...) All ar¬ 
ray elements are set to zero by the DIM state¬ 
ment. Dynamic re-dimensioning of arrays is 
not allowed. Once an array has been defined, 
it must not be re-defined in the same pro¬ 
gram. If an array is not explicitly defined by a 
DIM statement, it is assumed to be defined 
either as an array of 10 elements or as an ar¬ 
ray of 10 x 10 upon the first reference to it in 
a program. 

An array can be allocated only once in a 
given program, implicitly and explicitly. Only 
the variables A thru Z (not followed by a 
number) may be dimensioned. This does not 
prevent the use of a simple variable of the 
same name. 

The working size of an array may be smaller 
than its physical size. For example, an array 
declared 5 x 5 in a DIM statement may be us¬ 
ed to store fewer than 25 elements; the DIM 
statement supplies only an upper bound on 
the number of elements. In the example of 
A(5,5) the first position of this array is A(1,1) 
and the last is A(5,5). An example of the DIM 
Program statement format is as follows; 

10 DIM A(5,5), Z( 100,2) 

The END Program statement causes the pro¬ 
gram to stop executing. BASIC will print the 
word “READY” and a “#” on the terminal 
device indicating that it is now able to ac¬ 
cept commands. In this version of BASIC, 
END may appear more than once and need 
not appear at all. It is recommended, how¬ 
ever, that the last statement of a program be 
an END statement. This clearly shows that a 
program has been completely loaded or sav¬ 
ed. An example of the END Program state¬ 
ment format is as follows; 

9999 END 

The FOR Program statement allows repeti¬ 
tion of a group of statements within a pro¬ 
gram for a specified number of times. The 
variable name that follows the word ‘FOR’ is 
used to identify the related NEXT statement. 
In addition the variable is initially set to the 
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value of the first expression (expression - !). 
All statements between the FOR and the 
related NEXT statement are then executed. 
The named variable in the FOR statement is 
then incremented by the STEP value (expres¬ 
sions) and compared to the upper limit (ex- 
pression2). If the increment creates a value 
that is greater than the upper limit (expres- 
sion2) control of the computer is passed to 
the statement immediately following the 
NEXT statement. If the increment operation 
results in a sum that is equal to or less than 
the upper limit, the programming statements 
that fall between the FOR and NEXT 
statements will be repeated. This looping 
process will be continued until the upper 
limit has been exceeded, or as the result of 
an IF statement, control is passed to a state¬ 
ment outside the scope of the programming 
loop. If no STEP value is specified, a value of 
+1 is assumed. The loop will be executed 
once, regardless of the value of the variable. 
Although expressions are permitted for the 
initial, final, and step values in the FOR 
statement, they will be evaluated only once, 
the first time the loop is entered. It is not 
possible to use the same indexed variable in 
two loops if they are nested. When the state¬ 
ment after the NEXT statement is executed, 
the variable is equal to the value that caused 
the loop to terminate, and not the TO value 
itself. The step size need not be an integer. 
For instance, 

100 FOR N = 1 TO 2 STEP .01 
is a valid statement which will produce ex¬ 
actly 100 loop executions, incrementing N by 
.01 each time. A negative step size may also 
be used, as seen below: 

100 FOR Q1 = 100 TO 50 STEP - 2.5 
Examples of proper FOR Program statement 
formats are as follows; 

320 FOR K=1 TO 300 


500 FOR variable = expressionl TO 
expression2 STEP expressions 


760 FOR L9 = 200 TO 1 STEP - 1 
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See the description of NEXT statement for 
additional information. 

GOSUB The GOSUB program statement causes the 
program to transfer control to the subroutine 
at the specified line address and returns to 
the line immediately following GOSUB 
XXXX. A subroutine is a sequence of instruc¬ 
tions which performs a task that has use in 
more than one place in a program. To be able 
to use such a sequence of programming 
statements, BASIC provides the facility 
(GOSUB) to call upon such a sequence from 
more than one place in the program. 

The subroutine is actually a sequence of in¬ 
structions that will receive control upon the 
execution of a GOSUB statement. Upon 
completion of the subroutine, control is 
returned back to the mainline of the program 
by execution of a return statement. The 
statement that immediately follows the 
original GOSUB statement will receive con¬ 
trol when the RETURN is executed. 
Subroutines may be nested to a level of 8 
deep. That is, one subroutine may call a sub¬ 
routine, which can call a subroutine,.. .to a 
nested depth of 8 subroutines. An example 
of the GOSUB program statement format is 
as follows; 

235 GOSUB 9010 

GOTO The GOTO Program statement transfers con¬ 
trol of the computer to the statement 
number specified. Program control will con¬ 
tinue sequentially from the new statement. 
An example of the GOTO program statement 
format is as follows; 

100 GOTO 375 

* F The IF Program statement transfers control 

to a specified statement if the result of a 
conditional comparison is true. 

The IF statement is used to control the se¬ 
quence of program statements to be ex¬ 
ecuted, depending on specific conditions. If 
the relational expression is true, then con¬ 
trol is given to the statement or statement 
number declared after the THEN. If the rela¬ 
tional expression is false, program execu¬ 
tion continues at the statement that im¬ 
mediately follows the IF statement. The 
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possible relational operators for use with the 
IF statement are as follows; 

= Equal 
<> Not equal 

< Less than 

> Greater than 

< = Less than or equal 

> = Greater than or equal 

If a BASIC statement is specified after the 
THEN condition, rather than a statement 
number, the statement specified will be ex¬ 
ecuted if the conditional expression is true, 
and control will be passed to the statement 
immediately following the IF statement. 

It is possible to code another IF statement 
as the statement following the THEN condi¬ 
tion—. This will give the equivalent of an 
“AND” condition. 

When evaluating relational expressions, 
arithmetic operations take precedence in 
their usual order, and the relational 
operators are given equal weight and are 
evaluated last. 

Examples of proper IF program statements 
formats are as follows; 

190 IF X = 56 THEN 300 


200 IF Z9 D + Y-(7*S) THEN PRINT Z9; 
“is out of range" 


2022 IF expressionl relational-test ex- 
pression2 THEN basic-statement 


2022 IF expressionl relational-test ex- 
pression2 THEN statement-number 
An example of A program to illustrate IF 
statements is as follows: 

10 INPUT X 

20IFX = 1 THEN PRINT “EQUAL TO 1” 
30 IF XOI THEN PRINT “NOT EQUAL 
TO 1” 

40 IF X<1 THEN PRINT “LESS THAN 
1 ” 
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INPUT 


LET 


50 IF X>1 THEN PRINT “GREATER 
THAN 1” 

60 IF X< = 1 THEN PRINT “LESS THAN 
OR EQUAL TO 1” 

70 IF X> = 1 THEN PRINT “GREATER 
THAN OR EQUAL TO 1” 

80 PRINT 
90 GOTO 10 
100 END 

The INPUT program statement allows users 
to enter data from the terminal during pro¬ 
gram execution and to assign that value to a 
variable. The variable specified may be 
either a simple variable or a specified ele¬ 
ment in an array. 

When the program comes to an INPUT state¬ 
ment, a question mark is displayed on the 
terminal. The user then types in the re¬ 
quested data separated by commas and 
followed by a carriage return. If no data is 
entered, or if the data entered is insufficient, 
the system prompts the user for more data 
with an additional question mark. Only 
numerical constants can be given in re¬ 
sponse to an input statement. Any number 
of variables may be specified on the INPUT 
statement, within the confines of the 72 
character line, and the user must respond 
with a value for each specified variable. An 
example of the INPUT program statement 
format is as follows; 

100 INPUT A,C,D 

The LET program or assignment statement 
is used to assign or specify the value of a 
variable. The value may be an expression, a 
number, or another variable. The keyword 
LET is optional, and need not be specified. 
There are four functions which may be used 
inside a formula on a LET statement. ABS 
(absolute value), INT (integer value), RND 
(random number), and SGN (sign not sine) 
may be used inside formulas or LET 
statements or anywhere else that a 
mathematical expression is allowed. Ex¬ 
amples of proper LET statement formats are 
as as follows; 

100X =123.45 

110 LET Z9 = INT(RND(0)*100) 

120 T5 = (A*A)*3.14 
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300A(1,1) = X + P(M,N) 


400Z(I) = X 

NEXT The NEXT program statement is used to 

define the end of a “FOR... NEXT” loop. The 
variable specified in the NEXT statement 
identifies the associated FOR statement. 
Multiple FOR...NEXT statements may be 
used in the same program; They may also be 
nested (placed inside one another.) When 
nested, the innermost loop or loops must be 
wholly contained inside the outermost loop. 
The range must not overlap. An example of 
the NEXT program statement format is as 
follows; 

220 NEXT K 

Figure 4, illustrates proper and improper 
nesting. 


PROPER NESTING: 

100 FOR 1 = 1 TO 20 


150 FOR J = 1 TO 2 


L_170 NEXT J 


Innermost loop 
is contained 
totally within 
the outermost 
loop. 


|_210 NEXT I 

IMPROPER NESTING: 

-100 FOR 1 = 1 TO 20 

E l50 FOR J = 1 TO 2 The loops overlap. 
170 NEXT I 
210 NEXT J 

Figure 4. FOR.. NEXT NESTING 

For additional information see the description of the FOR 
statement. 
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ON The ON program statement provides a com¬ 

puted GOTO or GOSUB mechanism. Instead 
of specifying the programming sequence of: 
10 if X = 1 THEN 100 
20 if X = 2 THEN 200 
30 if X = 3 THEN 300 
40 if X = 4 THEN 400 

You could have used the following state¬ 
ment; 

10 ON X GOTO 100,200,300,400 
The computer would evaluate X, truncate the 
resulting value to an integer value, would 
then select the “Xth” statement number in 
the list of line numbers, and would use that 
value as part of a “GOTO” statement. Con¬ 
trol of the computer would then be received 
by the selected line number. 

In the example given above if the value of X 
was between 3 and 3.99999999 then the com¬ 
puter would GOTO 300. If the value of X was 
1 then the computer would “GOTO 100”. If 
the value of X is less than 1, or greater than 
the number of items in the list, the computer 
will generate an error message, and program 
execution will stop. 

ON X GOSUB 100,200,300,400 works in a 
similar manner, except that the specified 
line numbers are assumed to be the start of 
a subroutine. When a RETURN statement 
has been executed, control on the computer 
will be returned to the statement immedi¬ 
ately following the “ON X GOSUB” state¬ 
ment. 

Note: The value X in the examples above can 
be any formula or mathematical expression. 
(Additional note for FORTRAN Programmers 
or individuals trying to convert FORTRAN to 
BASIC): 

The FORTRAN IF statement can be sim¬ 
ulated in BASIC thru the use of the ON 
.. .GOTO statement. 

FORTRAN: IF (X-Y)20,50,10 
BASIC: ON SGN(X-Y)2 GOTO 20,50,10 
PRINT The PRINT program statement causes the 
values of any variables specified in the 
PRINT statement to be output or printed on 
the terminal device. The PRINT statement 
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can also be used to print out text, by enclos¬ 
ing the desired text to be printed in quota¬ 
tion marks (“). The statement 

100 PRINT “HI THERE, I AM A COM¬ 
PUTER” 

would cause the text “HI THERE, I AM A 
COMPUTER” to be printed on the terminal 
device (the quotation marks would not be 
displayed or printed.) 

The PRINT statement also makes use of the 
comma (,) and semicolon (;) to control the for¬ 
matting of a print line. 

In the statement PRINT A,B the numerical 
value of A will be printed beginning in the 
left hand margin, and the numerical value of 
B will be printed in column 18. Basic defines 
the 72 column line width into 4 zones start¬ 
ing in columns 18,36,48, and 60. The use of a 
comma in between data items will cause the 
printing mechanism to be advanced to the 
start of the next zone. This feature allows 
you to prepare tabular table data easily. The 
semicolon disables this “advance to next 
zone” mechanism and will cause the data 
items to be printed one after another. 
Numeric values will be separated by a blank 
for readability. 

In addition if the PRINT statement is ter¬ 
minated by a semicolon, the computer will 
suppress the normal “carriage return, line 
feed”, that is, automatically output at the 
end of each line. PRINT statement used with 
no operations or data items will cause a 
single blank line to be output. 

This version of BASIC supports two special 
functions (TAB & CHR) that can be used only 
on the PRINT statement. The TAB function 
can be used to format items starting in col¬ 
umns other than 18,36,48, and 60. The CHR 
function is used to create special control 
characters that may not be generatable from 
your keyboard. 

READ The READ program statement is similar in 

function to the INPUT statement except that 
the next DATA item is read, rather than get¬ 
ting a numeric value from the terminal. 
READ statements cause values in the DATA 
buffer to be accessed in a left to right, top to 
bottom sequential manner and assigned to 
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REM 


RESTORE 


RETURN 


the variable named in the read statement. If 
more than one variable is named in the 
READ, the values read from the DATA 
statements will be assigned, in the order 
read to the variables named on the READ 
staement. For additional information, see 
the description of the DATA and RESTORE 
statements. Examples of proper READ Pro¬ 
gram statement formats are as follows; 

100 READ A 

200 READ a,q9,B 

The REM program or remark statement 
allows insertion of a line of remarks or com¬ 
ments in the listing of a program. REM Lines 
are saved as a part of a BASIC Program, and 
are printed when the program is listed, but 
they are ignored when the program is ex¬ 
ecuting. An example of the REM program 
statement is as follows; 

300 REM 

In the discussion on the DATA and READ 
statements, it was stated that once a data 
item was read, it could not be re-read. This is 
only partially true. The RESTORE program 
statement is used to reset the internal data 
pointer that BASIC uses, back to the first 
data item on the first data statement. Thus 
the entire data list may be re-read from the 
beginning. 

The only way that you can re-read a par¬ 
ticular data item, is to keep track of how far 
down the data list it is; RESTORE the data 
pointer, and then READ “n-1” numbers 
throwing all of the previous numbers away. 
The data pointer has now been “reset" to a 
particular data item, so that it can be re¬ 
read ... clearly not a very practical technique 
for most programs!!! An example of the 
RESTORE program statement format is as 
follows; 

500 RESTORE 

The RETURN Program statement is used to 
define the logical end of a subroutine, and 
when executed will cause control of the 
computer to be transferred to the statement 
immediately following the last GOSUB ex¬ 
ecuted. A subroutine may call a subroutine, 
which calls still another subroutine. This 



294 


Best of Interface Age/Volume 1 


may be done to a nested level of 8 deep. You 
must take care not to execute a return state¬ 
ment unless you have executed a GOSUB 
first. An example of the RETURN Program 
statement format is as follows; 

1000 RETURN 

STOP The STOP program statement operates in a 

similar fashion to the END statement; both 
cause the currently running BASIC program 
to stop running. The STOP statement, 
however, will identify the line number of the 
statement that caused the stop; while the 
END statement merely stops the program 
without identifying where the “end” oc¬ 
curred. This feature of the STOP statement 
makes it useful in identifying “error” condi¬ 
tions. For instance, in the following example 
the computer will print “STOP at 100” if the 
number typed in response to the INPUT 
statement is less than zero. 

90 INPUT X 

100 IF X<0 THEN STOP 
An example of the STOP Program statement 
format is as follows; 

900 STOP 

FUNCTIONS 

The following functions are available in Robert Uiterwyk’s 4K 6800 

BASIC. 

ABS(x) The ABS or absolute function will take the 
absolute value of the expression x. If the 
value of the expression is a negative number 
then the value return by the absolute func¬ 
tion will be a positive value. A positive value 
will remain a positive value. 

if Z9 is a - 32 then the ABS(Z9) will be a 

+ 32 

if Q5 = + 6 then the formula ABS(Q5 + 3) 

will return a value of +9. 

INT(x) The INT or integer function is used to trun¬ 

cate or “chop-off” any decimals in a floating 
point number. Positive values will be 
chopped off to the next lower integer, and 
negative numbers will be rounded up to the 
next lower value. 

INT(9.765) will result in a value of 9. 

INT(-10.2) will result in a value of -11. 

RND(x) The RND or random number generator 
generates a pseudo-random number ranging 
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between 0,0 and 1.0. If the argument (x) is not 
equal to zero, it will be used as a new seed 
for the random number generator. The value 
returned as the result of specifying a new 
seed should be ignored. A new random 
number will be received when the argument 
specified is zero. In this version of BASIC it 
is not necessary to seed the generator in 
order to start a new random series of 
numbers at the start of a game. 

SGN(x) The SGN Or sign function returns a - 1,0, or 
+ 1 value depending on the magnitude of 
the expression (x). If x is less than zero, the 
SGN will return a value of -1. If x is equal to 
zero, SGN will return a value of zero. If x is 
greater than zero, SGN will return a +1 
if 29 is a - 45.987 then SGN(Z9) will be a 
-1 

if Q is a +34.59 then SGN(Q) will be a 
+1 

if R is a -10 and S is a - 5 then SGN 
(R-2*S) will be 0. 

CHR(x) The CHR function is used to convert the 
value of X (which must be between 2 and 255) 
to a single ASCII character. Thus CHR(16) 
will create a “CONTROL-P” and CHR(22) will 
create a “CONTROL-U”. The CHR function 
may be used only on the PRINT statement 
and is useful for creating special control 
characters required for terminal control. 

TAB(x) The TAB function can be used only in a 
PRINT statement. The value of X will cause 
the print mechanism to be positioned at 
column X. TAB(10) will cause a tab to column 
10, TAB(50) will cause a tab to column 50. 

The value of the TAB function must be from 1 
to 72. 

USER The USER function is used to call a user 

defined assembly language subroutine. 

OPERATORS 

Symbols used to instruct the microcomputer to perform some 
operation are called operators. This version of BASIC includes 
arithmetic and relational operators. 

ARITHMETIC OPERATORS—Five standard BASIC arithmetic 
operators are provided with this versin of BASIC. The arithmetic 
operators are as follows: 
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- 

Unary negation 

* 

Multiplication 

/ 

Division 

+ 

Addition 

- 

Subtraction 

RELATIONAL OPERATORS—Standard BASIC relational operators 
are provided for comparing the values of integer expressions. The 
relational operators are as follows: 

= 

Equal 

<> 

Not equal 

< 

Less than 

> 

Greater than 

< = 

Less than or equal 

> = 

Greater than or equal 


ERROR MESSAGES 

The following error messages can be created by BASIC at any time: 
ERROR MESSAGE 

CODE DESCRIPTION 

1 OVERSIZED VARIABLE. A TAB, CHR, ON or sub¬ 

script value was greater than 255. 

2 INPUT ERROR. 

3 ILLEGAL CHARACTER OR VARIABLE. An illegal 

variable name of an invalid character was 
found during the evaluation of a 
mathematical expression. 

4 NO ENDING ” IN PRINT LITERAL. A missing 

quotation mark was detected in a print state¬ 
ment. There must be an even number of 
quotation marks on a print statement. The 
character (”) cannot be output as a text 
character except by specifying CHR(34). 

5 DIMENSIONING ERROR. Only two dimensions are 

allowed, and must be a value between 1 and 
255. Once defined an array may not be de¬ 
fined again. Place all DIM statements at the 
start of the program, where they can not be 
accidentally executed a second time. All 
references to an array which is defined on a 
DIM statement must occur after the DIM 
statement has been executed. 

6 ILLEGAL ARITHMETIC. The most common cause 

of> “illegal arithmetic” is two arithmetic 
operators following each other, without a 
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numeric value separating them. “2+ -3” is 
illegal arithmetic. 

7 LINE NUMBER NOT FOUND. The “GOTO”, “GO- 

SUB” or “IF.. .THEN" line number does not 
exist in the program. If necessary a REM 
statement may be used as a dummy line to 
resolve a missing line number. 

8 DIVIDE BY ZERO ATTEMPTED. You just can’t do 

it! If there is no way to prevent it, place an 
“IF” statement prior to the divide and branch 
around the divide statement if a divide by 
zero might occur. 

9 EXCESSIVE SUBROUTINE NESTING. The maxi¬ 

mum number of subroutines that may be 
nested is 8. Generally when this occurs it is 
because a GOSUB is accidentally being ex¬ 
ecuted, or somehow a return statement has 
not been executed. 

10 RETURN without PRIOR GOSUB. You executed a 

RETURN statement without first executing a 
GOSUB. This is a no-no. 

11 ILLEGAL VARIABLE. The name for the variable is 

not correct. An array may only be named 
with a single alphabetic character. A(1) is 
correct, A5(1) is not. A simple variable may 
be named either with a single alphabetic 
character, OR a single alphabetic character 
followed by a single numeric character. A, 
BO, Cl are legal names. 1A, BB, C3A are not 
legal names. This version of BASIC does not 
support character string variables (A$, B$, 
etc.) 

12 UNRECOGNIZABLE STATEMENT. This first word 

in the statement was not a recognizable 
COMMAND or BASIC statement name; nor 
was it a variable (simple or array) name 
followed by an equal sign ( = ). This latter 
case is known as an implied LET statement. 

13 PARENTHESIS ERROR. Either you have too many 

opening parenthesis “(” or too few closing 
ones “)”. There must be exactly the same 
number of opening and closing parenthesis 
in a programming statement. 

14 MEMORY FULL. You just ran out of memory. Try 

to reduce the number of variables used in 
the program. If arrays are being used make 
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sure that they are dimensioned to the exact 
size required. Reduce the amount of remarks 
and the amount of PRINT statements used. 

Look and see if any routines are similar 
enough in nature to be made a subroutine. 

Look for more efficient algorithms to solve 
your problem. Split the program up into 
several different programs. If all else fails, 
go buy some more memory! 

15 SUBSCRIPT ERROR. The array was defined as a 

one dimensional array and the reference 
contains two dimensions, or vice-versa. 

16 EXCESSIVE FOR LOOPS ACTIVE. The maximum 

number of nested FOR... NEXT loops is 8. 

17 NEXT WITHOUT CORRESPONDING FOR. A NEXT 

statement has been found without a cor¬ 
responding FOR statement. The named 
variable that occurs after the word “FOR” 
and after the word "NEXT” is used to iden¬ 
tify corresponding “FOR” and “NEXT” 
statements. 

18 MISNESTED FOR NEXT LOOPS. The computer 

has detected an improper nesting for multi¬ 
ple “FOR.. .NEXT” statements. See Figure 
3 for an explanation of the proper and im¬ 
proper way to nest “FOR... NEXT” 
statments. 

19 READ STATEMENT ERROR. Read statement was 

executed, and there is not enough data in 
the data buffer to satisfy the READ request. 

20 ERROR IN ON STATEMENT. The expression when 

truncated to an integer value resulted in 
either a value less than one, or in a value that 
is greater than the number of statement 
numbers in the list. In the example below an 
error 20 will occur if the value of (X-Y) is less 
than 1 or greater than 5. 

100 ON(X-Y) GOTO 1000,235,3000,20,35 

21 INPUT OVERFLOW. More than 72 characters were 

typed on the line. 

GRAMMAR REFERENCE SUMMARY 

Table 3, Quick definition of BASIC Statements, and Table 4, BASIC 
functions, provide a quick reference for using, Robert Uiterwyk’s 4K 
6800 BASIC Interpreter. 
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Table 3. Quick definition of BASIC Statements 


STATEMENT 

DEFINITION 

RELATED 

STATEMENT(S) 

DATA 

‘STORES’ DATA TO BE 

READ 


USED BY READ STATE¬ 
MENT 

RESTORE 

DIM 

DEFINES SIZE OF AR¬ 
RAYS (1 or 2 dimen¬ 
sions are allowed.) 


END 

DEFINES END OF PRO¬ 
GRAM 

STOP 

FOR 

DEFINES START OF PRO¬ 
GRAMMING LOOP 

NEXT 

GOSUB 

TRANSFERS CONTROL 
TO A SUBROUTINE 

RETURN 

GOTO 

TRANSFERS CONTROL 
TO OTHER THAN THE 
NEXT SEQUENTIAL 
STATEMENT 


IF 

CONDITIONAL TEST USU¬ 
ALLY USED TO TRANS¬ 
FER CONTROL “IF” 

THEN 

INPUT 

GET DATE FROM KEY¬ 
BOARD OF ATTACHED 
TERMINAL 


LET 

ASSIGNMENT OF CALCU¬ 
LATION STATEMENT 


NEXT 

DEFINES END OF PRO¬ 
GRAMMING LOOP 

FOR 

ON 

COMPUTED “GOTO” OR 

GOSUB 


“GOSUB” 

GOTO 

PRINT 

PUT DATA TO PRINTER 
OR CRT OF ATTACHED 
TERMINAL 


READ 

GET DATA FROM “DATA” 

DATA 


STATEMENTS 

RESTORE 

REM 

PROGRAMMER’S COM¬ 
MENT 


RESTORE 

RESETS THE DATA 

DATA 


POINTER IN “DATA” 
STATEMENT 

READ 

RETURN 

DEFINES END OF SUB¬ 
ROUTINE — CAUSES 
CONTROL TO BE 
TRANSFERRED BACK 

TO STATEMENT IMME¬ 
DIATELY FOLLOWING 
THE GOSUB STATE¬ 
MENT 

GOSUB 



300 


Best of Interface Age/Volume 1 


STOP DEFINES THE END OF END 

THE PROGRAM: AND 
IDENTIFIES THE 
STATEMENT NUMBER 
OF THE STOP. 


Table 4. BASIC Functions 

ABS( ) ABSOLUTE VALUE 
CHR() CONVERSION OF VALUE TO A SINGLE 
CHARACTER 

INT() INTEGER VALUE (TRUNCATES DECIMAL 
VALUE) 

RND() RANDOM NUMBER GENERATOR; RETURNS 
VALUE FROM .000001 to .999999 
SGN() SIGN OF X; RETURNS A+ 1,0, or-1 
TAB() USED IN PRINT STATEMENT ONLY; 

CAUSES A TAB TO THE SPECIFIED 
COLUMN 

USER() CAUSES A CALL TO A USER DEFINED 
ASSEMBLY LANGUAGE SUBROUTINE 



Appendix A 


General Software Index 


Compiled by Jim Schreier 


The software published in Interface Age between December 1976 
and December 1978 is rich and varied. Historically, this time period 
marked the apex of “hobbyist” software and the dawning of 
“business” programs. Generally, the 1977 pages of Interface Age con¬ 
tained assembled programs for the SC/MP, 6800 and 8080. The 1978 
edition published software for a wider variety of chips plus BASIC, 
FORTRAN and PILOT programs. This variety of subject matter will in¬ 
terest most microcomputer users as well as provide a permanent 
record of excellent software. 

This compilation is divided into two sequential sections: Software 
by High Level Language and Software by CPU chips. 

The High Level Languages are in alphabetical order by the name of 
the BASIC. Most users will want to see what programs were published 
for their specific microcomputer. The term “G EN ERAL BASIC” means 
the documentation failed to identify a specific BASIC dialect. Of 
course, there is no such thing as a “General BASIC,” yet. It is possible 
to translate one BASIC to another given enough time. 

Likewise, the assembled software is arranged by CPU chips in 
numeric order. Some of the most important published software pro¬ 
grams appear in this section. Foremost is the publication in four parts 
of the Livermore BASIC Interpreter. 

ALTAIR BASIC v 4.0 Building and land development program 
BASIC listing November 1978 p 88 

ALTAIR Extended BASIC v 3.2 Computer(ese) speech writer 
BASIC listing January 1978 p 150 

ALTAIR Extended disk BASIC v 4.0 Number base conversion 
2 BASIC listings for disk and non-disk applications May 1977 p 116 

ALTAIR 8K BASIC v 3.2 Star Lanes 

Fixes to the computer game October 1977 p 8 
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ALTAIR 8K BASIC v 3.2 Star Lanes 

Computer game requiring 7K bytes June 1977 p 137 

APPLE BASIC APPLE Star-Trek 
small BASIC listing May 1977 p 134 

APPLE BASIC LOGAN 

BASIC listing for logic circuit analysis May 1977 
APPLE II BASIC Automated dress pattern 

floppy ROM™-2 BASIC and assembled listings September 1978 p 78 and 80a 

APPLE II BASIC TV pattern generator 
BASIC listing August 1978 p 160 

BASIC-E Membership file maintenance 
illustrating random disk files February 1978 p 159 

BURROUGHS B6700 BASIC Machine Menace 
artificial intelligence game March 1977 p 22 

CBASIC Personal management program 
CBASIC compiler listing August 1978 p 79 

COMPUCOLOR BASIC European Roulette in color—game 
BASIC listing August 1978 p 57 

FORTRAN IV M6800 cross assembler 

2 pass cross assembler with symbol table October 1977 p 152 

FORTRAN IV M6800 cross assembler 
erratum December 1977 p 134 

GENERAL BASIC Aquarium maintenance 
calculates 11 items December 1977 p 66 

GENERAL BASIC ASCII control character program 
BASIC listing February 1978 p 8 

GENERAL BASIC Base number conversion 
converts base 2-8-10-16 November 1977 p 161 

GENERAL BASIC Bi lingual math tutoring 

English and Spanish BASIC listings September 1978 p 131 

GENERAL BASIC Biorhythm—plotting game 
corrected listing December 1977 p 144 

GENERAL BASIC Biorhythm—plotting game 
2 listings with 1 designed for BASICS without SIN function 
October 1977 p 142 

GENERAL BASIC Circuit analysis 
BASIC listing August 1978 p 118 
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GENERAL BASIC Financial analysis program 
calculates annuity-lump sum and bonds March 1978 p 55 

GENERAL BASIC Function approximation with 2 variables 
BASIC listing October 1978 p 77 

GENERAL BASIC Harmonic analysis of point sources 
noise analysis program October 1977 p 54 

GENERAL BASIC Job costing with random numbers 
based on number of trials December 1977 p 86 

GENERAL BASIC Local mean time 

difference between GMT and T calculated August 1977 p 32 

GENERAL BASIC Local sidereal time and date 
6 various time/date calculations August 1977 p 33 

GENERAL BASIC Pico fumi—game 
BASIC listing December 1978 p 141 

GENERAL BASIC Play number—child’s game 
BASIC listing September 1978 p 129 

GENERAL BASIC Pot roast cooking time 
a sample BASIC listing December 1977 p 33 

GENERAL BASIC Preprocessor for structured programming 
BASIC listing February 1978 p 85 

GENERAL BASIC Stop TV display routine 
BASIC listing June 1978 p 155 

GENERAL BASIC Urine sugar and insulin curve plot 
BASIC listing December 1978 p 73 


HEWLETT PACKARD BASIC Viking uplink/downlink 
communications between earth and Mars on Viking I August 1977 p 78 

HONEYWELL 1108 Random number program for security combinations 
calculates 3 number series December 1977 p 148 


IMSAI BASIC Business risk simulation 
BASIC listing January 1978 p 91 


IMSAI BASIC Business risk simulation 
BASIC listing January 1978 p 91 


IMSAI 12K Extended BASIC v 4.0 Injun Poker—game 
4K BASIC listing December 1977 p 162 


MICROSOFT BASIC Recovery of crashed TARBELL tapes 
BASIC listing April 1978 p 149 
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MITS 8K BASIC Azimuth by celestial observations 
BASIC listing August 1978 p 76 

MITS 8K BASIC Checkers 

BASIC listing with graphics March 1977 p 136 

MITS 8K BASIC v 3.1 Crazy ball 

video game for Polymorphic VTI board August 1977 p 171 

MITS BASIC v 3.1 Base number conversion 
converts base 2-split octal-8-10-16 November 1977 p 163 

MITS BASIC v 4.0 Bowling 

A Bowling simulation for 4 players July 1977 p 170 

MITS BASIC v 4.0 General Payroll 

10 programs using random files June 1977 p 108 

MITS BASIC v 4.0 Household finance system 
includes monthly and yearly reports December 1977 p 46 

MITS BASIC v 4.0 Tic-Tac-Toe 

program allows computer to lose once in a while August 1977 p 170 

MITS Disk BASIC v 4.0 Heart attack probability 
BASIC listing July 1978 p 58 

MITS Disk BASIC Motel’s General Ledger 

(a) floppy ROM™ at 1200 baud September 1977 p 32A 

(b) 14 listings November 1977 p 57 

MITS Disk Extended BASIC v 4.0 Solar eclipse prediction 
12K BASIC listing August 1977 p 43 

MITS Disk Extended BASIC v 3.4 The word processor 
floppy ROM™ with source code January 1978 p 32A and 75 

MSI Disk BASIC Full function mailing list system 

floppy ROM™ at 300 baud and BASIC listings May 1978 p 59 and 64a 

NORTH STAR Disk BASIC 1040 tax calculation program 
based on California tax tables January 1978 p 158 

NORTH STAR Disk BASIC Crazy ball—game 
BASIC listing January 1978 p 170 

NORTHSTAR Disk BASIC Random access name and address retrieval 
2 BASIC listings August 1978 p 104 

NORTH STAR Disk BASIC The tax man—game 
BASIC listing February 1978 p 140 

PDP-10 BASIC BASIC cross assembler for the 8080 
BASIC listing February 1978 p 79 
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PDP-10 BASIC Data base management system 
BASIC listing August 1978 p 113 

PDP-10 BASIC Hexapod 

Robotic walking program June 1977 p 50 

PILOT Animal guessing—CIA game 
PILOT Listing September 1978 p 66 

PITTMAN’S 6800 TINY BASIC Shooting Starts 
2K BASIC games listing April 1977 p 110 

PROCESSOR TECHNOLOGY 5K BASIC Microcomputer Stock Options 
4.2K BASIC listing designed for a stock market hedge February 1977 p 37 

SWTPC 8K BASIC v 1.0 Calculating the position of Venus 
calculates degrees or hours from the sun August 1977 p 55 

SWTPC 8K BASIC v 1.0 Checkbook balancing 
BASIC listing May 1977 p 126 

SWTPC 8K BASIC v 1.0 Day of the Week 
BASIC listing from 1752 June 1977 p 128 

SWTPC 8K BASIC v 1.0 Depreciation schedule analysis 
BASIC listing of 4 types of depreciation September 1977 p 148 

SWTPC 8K BASIC v 2.0 How to buy an apartment building 
6 calculations supported January 1978 p 99 

SWTPC 4K BASIC v 2.0 Resistor sorting 
BASIC listing April 1978 p 167 

SWTPC 4K BASIC v 2.0 Sine-Cosine-Exponential-Logarithm-Square Root- 
Algorithms February 1977 p 103 

SWTPC 8K BASIC v 2.0 World power—game 
BASIC listing February 1978 p 171 

SWTPC 8K BASIC v 2.0 Zip code sort and print program 
BASIC listing April 1978 p 91 

TDL 8K BASIC Personal accounts payable 
tape based program December 1977 p 59 

2650 Interface design 
5 assembled listings November 1977 p 87 

6502 Robot control routines 

assembled initialization program-speed control-joystick control-etc. 

April 1977 p 24 

6502 Search subroutine for the 6502 Disassembler 
assembled listing: See Interface Age September 1976 p 14 
October 1977 p 146 
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6502 Sidereal/Solar clock for KIM-1 
assembled listing August 1977 p 37 

6800 A better memory test 

assembled listing with object code July 1977 p 160 

6800 A faster TTY paper tape load and dump 
2 assembled listings with object code September 1977 p 162 

6800 Bubble sort routine 

assembled listing with object code September 1977 p 156 

6800 Darkroom prompter program 
assembled listing October 1978 p 84 

6800 EXMON—Extended monitor system 
assembled listing with object code April 1977 p 115 

6800 GP monitor 

assembled 4K RAM listing plus object code for 4-8-16 and 32K 
October 1978 p 133 

6800 High density tape load 

assembled source listing with object code August 1977 p 167 
6800 High density tape punch 

assembled source listing with object code August 1977 p 163 

6800 IAPS™ International ASCII Publication Standard conversion 
assembled listings for 3 versions May 1978 p 73 

6800 MIKBUG™ Do Nothing—nonsense game 
object code listing December 1977 pill 

6800 PIA test 

assembled listing without comments with object code July 1977 p 162 
6800 Program data or address locator 

assembled listing with object code dump December 1978 p 137 

6800 Prototype board monitor program with PROM burner 
assembled listings February 1977 p 115 

6800 Re-entrant self-relative subroutine ROM 
assembled listing March 1977 p 129 

6800 Relocator 

assembled listing March 1978 p 166 

6800 Software aid for firmware production 
2 assembled listings March 1978 p 157 

6800 Stars—a game 

assembled listing with object code October 1977 p 161 
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6800 Text Editor 

assembled listing December 1976 p 89 
6800 Uiterwyk’s 4K BASIC Interpreter 

floppy ROM™ at 300 baud disk-object code listing with assembled binary 
loader May 1977 p 33 

6800 Uiterwyk’s 4K BASIC Interpreter: 3 routines 

assembled MIKBUG™ jumps-ACIA break routine-biload command 

July 1977 p 36 

8080 2707 EPROM programming software 
assembled listing December 1978 p 104 

8080 A tabcounter for your edit buffer 
assembled listing August 1978 p 151 

8080 An 8080 binary tape monitor 
assembled listing February 1978 p 153 

8080 An Intel hex-format paper tape monitor 
assembled listing March 1978 p 162 

8080 Blockade—VDM-1 video game 

assembled listing with object code November 1977 p 167 

8080 Cassette Operating System 
assembled subroutine listings April 1977 p 129 

8080 Convert Motorola 6800 hex format to Intel format 
assembled listing with object code May 1977 p 109 

8080 Conway’s Game of Life 

assembled listing for Processor Technology's video display board 
May 1977 p 138 

8080 Copy/Sort/Search data manipulation 
assembled listing September 1978 p 136 

8080 Cromemco Dazzler graphics interface driver 
assembled listing January 1978 p 153 

8080 Diablo printer drive routine 
assembled listing July 1977 p 25 

8080 Dr. Wang’s tiny BASIC 
assembled listing December 1976 p 89 

8080 Generalized string sorting routine 

BASIC and 6 assembled listings November 1978 p 131 

8080 I/O driver for PERSCI 1070 intelligent disk controller 
assembled listing September 1977 p 153 
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8080 IAPS™lnternational ASCII Publication Standard conversion 
asembled listing May 1978 p 79 

8080 IAPSTM International ASCII Publication Standard conversion 
assembled load-create-verify-dump listings June 1978 p 148 

8080 Intel hex format paper-tape punch program 
assembled listing with object code July 1977 p 155 

8080 Intelligent terminal program 

assembled listing with object code September 1977 p 75 

8080 Interval timer design 
5 assembled routines January 1978 p 127 

8080 Intrupped driven floppy disk controller for the S-100 bus 
assembled listing May 1978 p 152 

8080 Livermore BASIC Interpreter Part I 

BASIC and assembled plot functions December 1976 p 115 

8080 Livermore BASIC Interpreter Part II 
assembled listing January 1977 p 97 

8080 Livermore BASIC Interpreter Part III 

assembled floating point math package listing February 1977 p 104 

8080 Livermore BASIC Interpreter Part IV 
assembled octal debugging listing March 1977 p 121 

8080 Look—byte look-up program 
assembled listing May 1978 p 167 

8080 Memory catalog program 
assembled listing May 1978 p 170 

8080 Memory object code search routine 
assembled routine February 1977 p 121 

8080 Monitor initialization and printer control 
2 assembled Daisywheel listings October 1978 pill 

8080 Morse Code generator 
assembled listing October 1978 p 89 

8080 Octal Monitor Program 
assembled listing February 1977 p 13 

8080 Piranha—game 

assembled listing with object code December 1977 p 166 

8080 Polymorphic Ideaboard software 
2 assembled routines May 1977 p 98 



General Software Index 


309 


8080 Punch and read Intel formatted tape 
assembled listing December 1977 p 152 

8080 Random Number Generator Program 

assembled listing with a BASIC Chi-square subroutine February 1977 p 100 

8080 Robot's random programming approach 
assembled listing April 1978 p 158 

8080 Text editor for XEK and PTCo Assemblers 
assembled listing October 1978 p 140 

8080 Video Chase—a game 

assembled listing with object code October 1977 p 167 

8080A Resident Operating System 

IK SOL assembled listing January 1977 p 90 

9900 Interactive monitor 
assembled listing July 1978 p 163 

MOLYPROCESSOR Molyprocessor Music 
assembled listing November 1977 p 153 

SC/MP CRT Interface firmare 
assembled listing January 1978 p 120 

SC/MP Lock combinations program 
assembled listing July 1977 p 44 

SC/MP NIBL—Extended tiny BASIC 
assembled listing January 1977 p 113 

SC/MP Seiko printer interface and program 
assembled listing May 1977 p 124 

SC/MP Word G—a word game 
assembled listing December 1977 p 136 

Z-80 BYTEMOVER™ for Cromemco'S BYTESAVER™ 
assembler listing January 1977 p 70 

Z-80 Date and time for CP/M DOS 
assembled listing August 1978 p 154 

Z-80 Disk I/O keyboard handler 
assembled listing September 1977 p 167 

Z-80 Letter writing program 
assembled listing September 1978 p 94 

Z-80 Patches to the MITS 12K Extended BASIC 
assembled routines March 1977 p 138 
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Z-80 Spaceship simulator 

assembled service routine March 1978 p 74 

Z-80 TTY handler for the Z-80 development system 
serial and test assembled listings May 1977 p 112 

Z-80 User I/O for LIFEBOAT CP/MTM DOS 
assembled listing December 1978 p 133 
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GOSUB, 153, 183, 287 
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IF/THEN, 184 
INP, 160 
Input, 8 

INPUT, 154, 186, 289 
Interpreter, 8 

Kansas City Standard, 230 

LET, 156, 289 
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LOAD, 283 

MAIN, 147 
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Memory map, 238 
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OUT, 160 
OUTC, 167 

PAGE, 184 

PATCH, 283 

PEEK, 160, 182 

POKE, 160, 182 

POPA, 166 

PRINT, 153, 186, 291 

Program control, 183, 284 

PRTLN, 164 

PRTNUM, 164 

PRTSTG, 164 

PUSHA, 166 

QTSTG, 164 

READ, 262 
REM, 156, 188, 293 
RESTORE, 293 
RETURN, 153, 184, 293 
ROM, 229, 240 
RUN, 183, 283 

SAVE, 283 
SETVAL, 162 
Software, 301 
STAT, 184 
STOP, 294 
SUBDE, 161 

TABLES, 149 
Tiny BASIC, 140, 146 
Trap, 22 
Truth, 191 
UNTIL, 185 
USR, 160 

Variable names, 281 
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